Commit Diff


commit - 5f8e7670f9d2b71f241595510f5be99841e2560e
commit + 8dc394dfe2c2f0bcf9c47f1b18de4850565076d3
blob - a74f378aef06dad28dfb11140274a79f08506edb
blob + c0ab88649e75bfb223f5a8d07a029a2b10be2af5
--- plass
+++ plass
@@ -38,6 +38,17 @@ if (!defined($default_length) || $default_length lt 0)
 	$default_length = 32;
 }
 
+my %subcmd = (
+	cat	=> [\&cmd_cat,		"entries..."],
+	find	=> [\&cmd_find,		"[pattern]"],
+	gen	=> [\&cmd_gen,		"[-nq] [-c chars] [-l length] entry"],
+	got	=> [\&cmd_got,		"args ..."],
+	mv	=> [\&cmd_mv,		"from to"],
+	rm	=> [\&cmd_rm,		"entries..."],
+	tee	=> [\&cmd_tee,		"[-q] entry"],
+	tog	=> [\&cmd_tog,		"args ..."],
+    );
+
 my $usage = "[-h] [command argument ...]";
 my $cmd;
 sub usage {
@@ -46,6 +57,7 @@ sub usage {
 		say STDERR "Usage: $prog $cmd $usage";
 	} else {
 		say STDERR "Usage: $prog $usage";
+		say STDERR "commands: ", join(' ', sort(keys %subcmd));
 	}
 	exit 1;
 }
@@ -53,17 +65,6 @@ sub usage {
 GetOptions("h|?" => \&usage) or usage();
 
 $cmd = shift // 'find';
-
-my %subcmd = (
-	cat	=> [\&cmd_cat,		"entries..."],
-	find	=> [\&cmd_find,		"[pattern]"],
-	gen	=> [\&cmd_gen,		"[-nq] [-c chars] [-l length] entry"],
-	got	=> [\&cmd_got,		"args ..."],
-	mv	=> [\&cmd_mv,		"from to"],
-	rm	=> [\&cmd_rm,		"entries..."],
-	tee	=> [\&cmd_tee,		"[-q] entry"],
-	tog	=> [\&cmd_tog,		"args ..."],
-    );
 usage() unless defined $subcmd{$cmd};
 my $fn;
 ($fn, $usage) = @{$subcmd{$cmd}};