That should have been -s.

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