fix debugprefix

diff --git a/dgit b/dgit
index 60020fc2fe8d09ede9d17bc7d08c8900706b8037..e12bfdc86b6b0d78a647110388a407d41b1bdba1 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -116,7 +116,7 @@ sub dscfn ($) {
 sub changesopts () { return @changesopts[1..$#changesopts]; }
 
 our $us = 'dgit';
 sub changesopts () { return @changesopts[1..$#changesopts]; }
 
 our $us = 'dgit';

-our $debugprefix = ' ';
+our $debugprefix = '';

 
 sub printdebug { print DEBUG $debugprefix, @_ or die $!; }
 
 
 sub printdebug { print DEBUG $debugprefix, @_ or die $!; }
 


@@ -1417,9 +1417,9 @@ sub cmd_remote_push_responder {
     @ARGV = @ARGV[$nrargs..$#ARGV];
     die unless @rargs;
     my ($dir) = @rargs;
     @ARGV = @ARGV[$nrargs..$#ARGV];
     die unless @rargs;
     my ($dir) = @rargs;

+    $debugprefix = ' ';

     changedir $dir;
     $we_are_responder = 1;
     changedir $dir;
     $we_are_responder = 1;

-    $debugprefix = ' ';

     autoflush STDOUT 1;
     responder_send_command("dgit-remote-push-ready");
     &cmd_push;
     autoflush STDOUT 1;
     responder_send_command("dgit-remote-push-ready");
     &cmd_push;