diff options
author | Wayne Davison <wayned@samba.org> | 2005-06-17 16:12:05 +0000 |
---|---|---|
committer | Wayne Davison <wayned@samba.org> | 2005-06-17 16:12:05 +0000 |
commit | ef1233cbb379cc8ab7bbebdaeacc2d173568568d (patch) | |
tree | 12712e17a757a48f36b6859a70ab725e5eba3a65 | |
parent | 1524815ed3ca019c007a93f6e90ab95a445833de (diff) | |
download | rsync-ef1233cbb379cc8ab7bbebdaeacc2d173568568d.tar.gz |
Improved some of the comments that are output into the perl code.
-rwxr-xr-x | support/cull_options | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/support/cull_options b/support/cull_options index 577746c4..b4718e2e 100755 --- a/support/cull_options +++ b/support/cull_options @@ -36,15 +36,21 @@ while (<IN>) { } close IN; -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", - "# To disable a long-named option, change its value to a 0. A value of -1\n", - "# means the arg doesn't need checking, a 2 means only check when receiving.\n"; +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. +our \$short_no_arg = '$short_no_arg'; +our \$short_with_num = '$short_with_num'; +# To disable a short-named option, add its letter to this string: +our \$short_disabled = ''; +# To disable a long-named option, change its value to a 0 (NOTE: at least +# one option appears in two places!). A value of -1 means the arg doesn't +# need checking, a 1 means to check it, a 2 means only check when receiving. +EOT foreach my $name (qw( long_no_arg long_with_arg long_before_arg )) { $_ = "our \%$name = (\n '" . join("' => 1,\n '", sort keys %$name) . "' => 1,\n);\n"; |