commit - 8dc394dfe2c2f0bcf9c47f1b18de4850565076d3
commit + d1bd3477da894e9a8da20910e2f942452adbde9e
blob - c0ab88649e75bfb223f5a8d07a029a2b10be2af5
blob + f3d64d88f8b43125ece9b9b6a53fafc01238207e
--- plass
+++ plass
my $cmd;
sub usage {
my $prog = basename $0;
- if (defined($cmd)) {
+ if (defined($cmd) and defined($subcmd{$cmd})) {
say STDERR "Usage: $prog $cmd $usage";
} else {
say STDERR "Usage: $prog $usage";
+ say STDERR "unknown command $cmd" if defined($cmd);
say STDERR "commands: ", join(' ', sort(keys %subcmd));
}
exit 1;