In installperl rename $opt{dostrip} to $opt{strip}.
authorNicholas Clark <nick@ccl4.org>
Wed, 25 Apr 2012 14:57:22 +0000 (16:57 +0200)
committerNicholas Clark <nick@ccl4.org>
Sat, 13 Jul 2013 10:01:37 +0000 (12:01 +0200)
This will provide a more meaningful long option name once installperl is
converted to Getopt::Long.

installperl

index 889d7da..6b4898c 100755 (executable)
@@ -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+)$/) {