From: Wayne Davison Date: Fri, 17 Jun 2005 04:46:02 +0000 (+0000) Subject: Output a leading comment and surrounding blank lines. X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/commitdiff_plain/b3181708f21c458b1cc9d8c605b5432eccbad196 Output a leading comment and surrounding blank lines. --- 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 () { } 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";