chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9caea34
)
promote cmdoutput nfc
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 13 Aug 2013 19:56:16 +0000
(20:56 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 13 Aug 2013 19:56:16 +0000
(20:56 +0100)
dgit
patch
|
blob
|
history
diff --git
a/dgit
b/dgit
index 4491c967ac8d97725be767222fc9974b7eb161fe..fef71e5493355de0410b046a190245e8e3d65408 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-42,6
+42,22
@@
sub url_get {
our ($dscdata,$dscurl,$dsc);
our ($dscdata,$dscurl,$dsc);
+sub runcmd {
+ $!=0; $?=0;
+ die "@_ $! $?" if system @_;
+}
+
+sub cmdoutput {
+ open P, "-|", @_ or die $!;
+ my $d;
+ $!=0; $?=0;
+ { local $/ = undef; $d = <P>; }
+ die if P->error;
+ close P or die "@_ $? $!";
+ chomp $d;
+ return $d;
+}
+
sub parsecontrol {
my $c = Dpkg::Control::Hash->new();
$c->load(@_) or return undef;
sub parsecontrol {
my $c = Dpkg::Control::Hash->new();
$c->load(@_) or return undef;
@@
-87,22
+103,6
@@
sub check_for_git () {
return $r+0;
}
return $r+0;
}
-sub runcmd {
- $!=0; $?=0;
- die "@_ $! $?" if system @_;
-}
-
-sub cmdoutput {
- open P, "-|", @_ or die $!;
- my $d;
- $!=0; $?=0;
- { local $/ = undef; $d = <P>; }
- die if P->error;
- close P or die "@_ $? $!";
- chomp $d;
- return $d;
-}
-
our ($dsc_hash,$lastupl_hash);
sub generate_commit_from_dsc () {
our ($dsc_hash,$lastupl_hash);
sub generate_commit_from_dsc () {