}
}
$!=0; $_=<T>; defined or die $!;
- m/^($package_re) release (\S+) for (\S+) \[dgit\]$/ or
+ m/^($package_re) release (\S+) for \S+ \((\S+)\) \[dgit\]$/ or
reject "tag message not in expected format";
die unless $1 eq $package;
sub parseargsdispatch () {
die unless @ARGV;
+ delete $ENV{'GIT_DIR'}; # if not run via ssh, our parent git process
+ delete $ENV{'GIT_PREFIX'}; # sets these and they mess things up
+
if ($ENV{'DGIT_DRS_DEBUG'}) {
$debug='=';
open DEBUG, ">&STDERR" or die $!;