diff options
-rwxr-xr-x | dgit | 32 |
1 files changed, 16 insertions, 16 deletions
@@ -42,6 +42,22 @@ sub url_get { 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; @@ -87,22 +103,6 @@ sub check_for_git () { 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 () { |