$argvstring=join(' ',@argvcopy);
PROCESS_ARGS:
+ my %unsupported_options = ();
foreach (@argvcopy)
{
s /^-no-/no-/; # some people just can't read the instructions
my $word = $2;
if (!grep { $word =~ /^${_}$/ } @disablables)
{
- warn "Unsupported option ${word}, ignored...\n";
+ $unsupported_options{$_} = 1;
next;
}
}
{ $options .= " ".$_; }
}
}
+
+ if (keys %unsupported_options)
+ {
+ die "***** Unsupported options: ",
+ join(", ", keys %unsupported_options), "\n";
+ }
}