sub changesopts () { return @changesopts[1..$#changesopts]; }
our $us = 'dgit';
-our $debugprefix = ' ';
+our $debugprefix = '';
sub printdebug { print DEBUG $debugprefix, @_ or die $!; }
@ARGV = @ARGV[$nrargs..$#ARGV];
die unless @rargs;
my ($dir) = @rargs;
+ $debugprefix = ' ';
changedir $dir;
$we_are_responder = 1;
- $debugprefix = ' ';
autoflush STDOUT 1;
responder_send_command("dgit-remote-push-ready");
&cmd_push;