commit d1bd3477da894e9a8da20910e2f942452adbde9e from: Omar Polo date: Wed Jun 29 14:54:20 2022 UTC print 'unknown command' when not recognizing the given cmd commit - 8dc394dfe2c2f0bcf9c47f1b18de4850565076d3 commit + d1bd3477da894e9a8da20910e2f942452adbde9e blob - c0ab88649e75bfb223f5a8d07a029a2b10be2af5 blob + f3d64d88f8b43125ece9b9b6a53fafc01238207e --- plass +++ plass @@ -53,10 +53,11 @@ my $usage = "[-h] [command argument ...]"; 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;