promote cmdoutput nfc

[dgit.git] / dgit

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);
 
+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 () {