Force knowledge the -p option, since it gets passed specially.

diff --git a/support/cull_options b/support/cull_options
index 07a5702..b21c5d1 100755 (executable)
--- a/support/cull_options
+++ b/support/cull_options
@@ -33,6 +33,8 @@ while (<IN>) {
 }
 close IN;
 
+$short_no_arg{'p'} = 1;
+
 my $short_no_arg = join('', sort keys %short_no_arg);
 my $short_with_num = join('', sort keys %short_with_num);