+ my ($why) = @_;
+ my $w = $ENV{'DGIT_DRS_WORK'}; # we are in stunthook
+ if (defined $w) {
+ open REJ, ">", "$w/drs-reject" or die $!;
+ print REJ $why, "\n" or die $!;
+ close REJ or die $!;
+ }
+ die "dgit-repos-server: reject: $why\n";
+}
+
+sub debugcmd {
+ if ($debug) {
+ use Data::Dumper;
+ local $Data::Dumper::Indent = 0;
+ local $Data::Dumper::Terse = 1;
+ debug "|".Dumper(\@_);
+ }