diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-01-01 16:44:12 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-01 15:59:43 +0000 |
| commit | 4f048c5d37e8541475c2e2ea1b688cb6fc847914 (patch) | |
| tree | dd75b28ac320e7bc35dfd34607179b0d7dd2d406 | |
| parent | 8c40cb74f5f252024befa67ca9d13253c7ad83f1 (diff) | |
| download | perl-4f048c5d37e8541475c2e2ea1b688cb6fc847914.tar.gz | |
don't installperl pods
Message-Id: <20020101164411.A3157@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@14000
| -rwxr-xr-x | installperl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/installperl b/installperl index fc7ccb540e..a9e7b9eb14 100755 --- a/installperl +++ b/installperl @@ -10,7 +10,7 @@ BEGIN { use strict; my ($Is_VMS, $Is_W32, $Is_OS2, $Is_Cygwin, $Is_Darwin, $nonono, $dostrip, $versiononly, $silent, $verbose, - $otherperls, $archname,$Is_NetWare, $nwinstall); + $otherperls, $archname,$Is_NetWare, $nwinstall, $nopods); use vars qw /$depth/; BEGIN { @@ -72,6 +72,7 @@ while (@ARGV) { $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'; + $nopods = 1 if $ARGV[0] eq '-p'; if ($ARGV[0] eq '-?' or $ARGV[0] =~ /^-?-h/) { print <<"EOT"; Usage $0: [switches] @@ -86,6 +87,7 @@ Usage $0: [switches] -V Verbose mode. -A Also install perl with the architecture's name in the perl binary's name. + -p Don't install the pod files. [This will break use diagnostics;] -netware Install correctly on a Netware server. EOT exit; @@ -111,7 +113,7 @@ close SCRIPTS; if ($scr_ext) { @scripts = map { "$_$scr_ext" } @scripts; } -my @pods = (<pod/*.pod>); +my @pods = (<pod/*.pod>) unless $nopods; # Specify here any .pm files that are actually architecture-dependent. # (Those included with XS extensions under ext/ are automatically |