summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-12-12 11:07:27 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-12-12 11:07:27 +0000
commiteddad28d0244a5ea78db12a5ffa9cd57f0949857 (patch)
tree05ad44e78e9f890dde830cbfda55cf72652376e4 /utils
parent5bd7e777abc05b6a5df0dcabdb989e2f8f19d138 (diff)
downloadperl-eddad28d0244a5ea78db12a5ffa9cd57f0949857.tar.gz
Skip IO::Compress::Zlib in perlivp, since that's a distribution name,
not a proper module name. p4raw-id: //depot/perl@29529
Diffstat (limited to 'utils')
-rw-r--r--utils/perlivp.PL9
1 files changed, 5 insertions, 4 deletions
diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 2e597c28f4..01c5169523 100644
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -33,13 +33,12 @@ $Config{'startperl'}
if \$running_under_some_shell;
!GROK!THIS!
+print OUT "\n# perlivp $^V\n";
+
# In the following, perl variables are not expanded during extraction.
print OUT <<'!NO!SUBS!';
-# perlivp V 0.02
-
-
sub usage {
warn "@_\n" if @_;
print << " EOUSAGE";
@@ -209,7 +208,9 @@ if (defined($Config{'extensions'})) {
next if ($_ eq 'threads');
next if ($_ eq 'threads/shared');
}
- next if ($_ eq 'Devel/DProf');
+ # that's a distribution name, not a module name
+ next if $_ eq 'IO/Compress/Zlib';
+ next if $_ eq 'Devel/DProf';
# VMS$ perl -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
# \NT> perl -e "eval \"require 'Devel/DProf.pm'\"; print $@"
# DProf: run perl with -d to use DProf.