commit - bd71caf68080238bb0f9395d28a68fa3adf3f44d
commit + 43642ec154bf78e66de02c9f339071e862c23da4
blob - cf4db6ba9ab4776d921abba8bd3b0880820b0725
blob + 96a5a49bd49d243094756aa90f4fc74a61f680ed
--- plass
+++ plass
my %subcmd = (
cat => [\&cmd_cat, "entries..."],
find => [\&cmd_find, "[pattern]"],
- gen => [\&cmd_gen, "[-c chars] [-l length] entry"],
- got => [\&cmd_got, "arguments ..."],
+ gen => [\&cmd_gen, "[-nq] [-c chars] [-l length] entry"],
+ got => [\&cmd_got, "args ..."],
mv => [\&cmd_mv, "from to"],
rm => [\&cmd_rm, "entry"],
tee => [\&cmd_tee, "[-q] entry"],
- tog => [\&cmd_tog, "arguments ..."],
+ tog => [\&cmd_tog, "args ..."],
);
pod2usage(1) unless defined $subcmd{$cmd};
my ($fn, $usage) = @{$subcmd{$cmd}};