X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/b8a47c9bc6bae42b169a78223b2d60179555c6be..bdd53557a8b7f84e6e4f658bce709d184985200e:/support/cull_options

diff --git a/support/cull_options b/support/cull_options
index dbbfc78d..b21c5d13 100755
--- a/support/cull_options
+++ b/support/cull_options
@@ -33,13 +33,15 @@ 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);
 
 print <<EOT;
 
 # These options are the only options that rsync might send to the server,
-# and only in the option/arg format that the stock rsync produces.
+# and only in the option format that the stock rsync produces.
 
 # To disable a short-named option, add its letter to this string:
 our \$short_disabled = '';
@@ -55,7 +57,7 @@ EOT
 
 foreach my $opt (sort keys %long_opt) {
     my $val = $long_opt{$opt};
-    $val = 1 if $opt =~ /^max-/;
+    $val = 1 if $opt =~ /^(max-|min-)/;
     $val = 3 if $opt eq 'files-from';
     $val = '$ro ? -1 : ' . $val if $opt =~ /^remove-/;
     print "  '$opt' => $val,\n";