$prefix =~ s/\W/\\$&/g;
$suffix =~ s/\W/\\$&/g;
-my $package = qr{[0-9a-z][-+0-9a-z]*};
+my $package = qr{[0-9a-z][-+.0-9a-z]*};
my $d = qr{$prefix$package$suffix};
my $command = $ENV{SSH_ORIGINAL_COMMAND}
# The pattern should contain $d where the per-package destination
# directory would go.
-or die "unexpected command $command\n";
+or die "dgit-mirror-ssh-wrap: unexpected command (rsync upgraded?):
+ $command\n";
exec $& or die $!;