X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/782d1091213df611767787a88365c32427afe9ec..b3181708f21c458b1cc9d8c605b5432eccbad196:/support/cull_options

diff --git a/support/cull_options b/support/cull_options
index 3215e89d..577746c4 100755
--- a/support/cull_options
+++ b/support/cull_options
@@ -36,7 +36,10 @@ while (<IN>) {
 }
 close IN;
 
-print "our \$short_no_arg = '", sort(keys %short_no_arg), "';\n",
+print "\n",
+    "# These options are the only options that rsync might send to the\n",
+    "# server, and only in the arg styles that the stock rsync produces.\n",
+    "our \$short_no_arg = '", sort(keys %short_no_arg), "';\n",
     "our \$short_with_num = '", sort(keys %short_with_num), "';\n",
     "# To disable a short-named option, add its letter to this string:\n",
     "our \$short_disabled = '';\n",
@@ -56,3 +59,5 @@ foreach my $name (qw( long_no_arg long_with_arg long_before_arg )) {
     s/('remove-.* =>) (-?\d),/$1 \$ro ? 0 : $2,/g;
     print;
 }
+
+print "\n";