Added a couple more long options that might get passed.
# 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 (<IN>) {
- 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]"/) {
'delete-during' => 0,
'delete-excluded' => 0,
'existing' => 0,
+ 'fake-super' => 0,
'files-from' => 3,
'force' => 0,
'from0' => 0,
'inplace' => 0,
'link-dest' => 2,
'list-only' => 0,
+ 'log-file' => 3,
'log-format' => 1,
'max-delete' => 1,
'max-size' => 1,
'super' => 0,
'temp-dir' => 2,
'timeout' => 1,
+ 'use-qsort' => 0,
);
### END of options data produced by the cull_options script. ###
if ($_ eq '.') {
$in_options = 0;
} else {
- next if /^-$short_no_arg+(e\d+\.\d+)?$/o || /^-$short_with_num\d+$/o;
+ next if /^-$short_no_arg+(e\d*\.\w*)?$/o || /^-$short_with_num\d+$/o;
my($opt,$arg) = /^--([^=]+)(?:=(.*))?$/;
my $disabled;