wip changes for remote push - split off sign_changes

diff --git a/dgit b/dgit
index 83bed5400b58d0d3c01cf2f4ffa48743b4571f9a..9d2d8769974355e5fcd7135225295cbb589d1c87 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1127,6 +1127,16 @@ END
     return ($tagobjfn);
 }
 
     return ($tagobjfn);
 }
 

+sub sign_changes ($) {
+    my ($changesfile) = @_;
+    if ($sign) {
+       my @debsign_cmd = @debsign;
+       push @debsign_cmd, "-k$keyid" if defined $keyid;
+       push @debsign_cmd, $changesfile;
+       runcmd_ordryrun @debsign_cmd;
+    }
+}
+

 sub dopush () {
     print DEBUG "actually entering push\n";
     prep_ud();
 sub dopush () {
     print DEBUG "actually entering push\n";
     prep_ud();


@@ -1222,19 +1232,15 @@ sub dopush () {
        }
     }
 
        }
     }
 

-    if ($sign) {
-       if ($we_are_responder) {
-           my $dryrunsuffix = $dryrun ? ".tmp" : "";
-           responder_receive_files('signed-changes-dsc',
-                                   "$changesfile$dryrunsuffix",
-                                   "../$dscfn$dryrunsuffix");
-       } else {
-           my @debsign_cmd = @debsign;
-           push @debsign_cmd, "-k$keyid" if defined $keyid;
-           push @debsign_cmd, $changesfile;
-           runcmd_ordryrun @debsign_cmd;
-       }
+    if ($we_are_responder) {
+       my $dryrunsuffix = $dryrun ? ".tmp" : "";
+       responder_receive_files('signed-dsc-changes',
+                               "../$dscfn$dryrunsuffix",
+                               "$changesfile$dryrupnsuffix");
+    } else {
+       sign_changes $changesfile;

     }
     }

+

     runcmd_ordryrun @git, qw(push),access_giturl(),"refs/tags/$tag";
     my $host = access_cfg('upload-host','RETURN-UNDEF');
     my @hostarg = defined($host) ? ($host,) : ();
     runcmd_ordryrun @git, qw(push),access_giturl(),"refs/tags/$tag";
     my $host = access_cfg('upload-host','RETURN-UNDEF');
     my @hostarg = defined($host) ? ($host,) : ();