commit - bd71caf68080238bb0f9395d28a68fa3adf3f44d
commit + 43642ec154bf78e66de02c9f339071e862c23da4
blob - cf4db6ba9ab4776d921abba8bd3b0880820b0725
blob + 96a5a49bd49d243094756aa90f4fc74a61f680ed
--- plass
+++ plass
@@ -48,12 +48,12 @@ my $cmd = shift or pod2usage(1);
 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}};