From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 12 Dec 2006 11:07:27 +0000 (+0000)
Subject: Skip IO::Compress::Zlib in perlivp, since that's a distribution name,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eddad28d0244a5ea78db12a5ffa9cd57f0949857;p=p5sagit%2Fp5-mst-13.2.git

Skip IO::Compress::Zlib in perlivp, since that's a distribution name,
not a proper module name.

p4raw-id: //depot/perl@29529
---

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 2e597c2..01c5169 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.