X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/2e8259bb0bc5ffe64df9075ef8f1e8050caf951c..38cef641a5d2f6506615f5b8e0c5bfea32ef62f6:/support/cull_options diff --git a/support/cull_options b/support/cull_options index ab16238c..3ef470df 100755 --- a/support/cull_options +++ b/support/cull_options @@ -4,13 +4,19 @@ # is included in the rrsync script. use strict; -our(%short_no_arg, %short_with_num, %long_opt); +our %short_no_arg; +our %short_with_num; +our %long_opt = ( + 'no-i-r' => 0, + 'fake-super' => 0, + 'log-file' => 3, +); our $last_long_opt; open(IN, '../options.c') or die "Unable to open ../options.c: $!\n"; while () { - if (/\Qargstr[x++]\E = '(.)'/) { + if (/\Qargstr[x++]\E = '([^.ie])'/) { $short_no_arg{$1} = 1; undef $last_long_opt; } elsif (/\Qasprintf(\E[^,]+, "-([a-zA-Z0-9])\%l?[ud]"/) { @@ -33,8 +39,6 @@ while () { } close IN; -$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);