develooper Front page | perl.perl5.porters | Postings from August 2001

[PATCH] installperl -help

From:
Nicholas Clark
Date:
August 21, 2001 09:34
Subject:
[PATCH] installperl -help
Message ID:
20010821173423.F82818@plum.flirble.org
I'm fed up with forgetting the arguments to installperl. Here's a patch

Nicholas Clark

--- installperl.orig	Sun Jul 29 19:00:13 2001
+++ installperl	Tue Aug 21 17:34:20 2001
@@ -72,6 +72,24 @@
     $verbose = 1 if $ARGV[0] eq '-V' || $ARGV [0] eq '-n';
     $archname = 1 if $ARGV[0] eq '-A';
 	$nwinstall = 1 if $ARGV[0] eq '-netware';
+    if ($ARGV[0] eq '-?' or $ARGV[0] =~ /^-?-h/) {
+      print <<"EOT";
+Usage $0: [switches]
+  -n	    Don't actually run any commands; just print them.
+  -s        Run strip on installed binaries.
+  -v        Only install perl as a binary with the version number in the name.
+            (Override whatever config.sh says)
+  +v        Install perl as "perl" and as a binary with the version number in
+            the name.  (Override whatever config.sh says)
+  -S        Silent mode.
+  -o        Skip checking for other copies of perl in your PATH.
+  -V        Verbose mode.
+  -A        Also install perl with the architecture's name in the perl binary's
+            name.
+  -netware  Install correctly on a Netware server.
+EOT
+      exit;
+    }
     shift;
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About