This will provide a more meaningful long option name once installperl is
converted to Getopt::Long.
# feature is implemented, to distinguish + and - options.
while (@ARGV) {
$opts{notify} = 1 if $ARGV[0] eq '-n';
- $opts{dostrip} = 1 if $ARGV[0] eq '-s';
+ $opts{strip} = 1 if $ARGV[0] eq '-s';
$versiononly = 1 if $ARGV[0] eq '-v';
$versiononly = 0 if $ARGV[0] eq '+v';
$opts{silent} = 1 if $ARGV[0] eq '-S';
{
my(@args) = @_;
- return unless $opts{dostrip};
+ return unless $opts{strip};
my @opts;
while (@args && $args[0] =~ /^(-\w+)$/) {