X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/6226396c4ac4980518d7a97203574501a4562090..38cef641a5d2f6506615f5b8e0c5bfea32ef62f6:/support/cull_options diff --git a/support/cull_options b/support/cull_options index c85a0363..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]"/) {