diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-04-25 16:57:22 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-07-13 12:01:37 +0200 |
| commit | 4609f84fc954f9ef279e0204408c7e7f64fa58c9 (patch) | |
| tree | 0828b587c95f6ec0b4ee0d911d79c73ef764da06 | |
| parent | c164bd944ffd768f738cd42ae5ea26f282503d42 (diff) | |
| download | perl-4609f84fc954f9ef279e0204408c7e7f64fa58c9.tar.gz | |
In installperl rename $opt{dostrip} to $opt{strip}.
This will provide a more meaningful long option name once installperl is
converted to Getopt::Long.
| -rwxr-xr-x | installperl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/installperl b/installperl index 889d7da875..6b4898cdd1 100755 --- a/installperl +++ b/installperl @@ -73,7 +73,7 @@ $opts{destdir} = ''; # 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'; @@ -822,7 +822,7 @@ sub strip { my(@args) = @_; - return unless $opts{dostrip}; + return unless $opts{strip}; my @opts; while (@args && $args[0] =~ /^(-\w+)$/) { |