Change 14000 by ams@lustre on 2002/01/01 15:59:43
Subject: [PATCH] don't installperl pods
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Tue, 1 Jan 2002 16:44:12 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/installperl#89 edit
Differences ...
==== //depot/perl/installperl#89 (xtext) ====
Index: perl/installperl
--- perl/installperl.~1~ Tue Jan 1 09:15:05 2002
+++ perl/installperl Tue Jan 1 09:15:05 2002
@@ -10,7 +10,7 @@
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 @@
$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 @@
-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 @@
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
End of Patch.
