From: Vincent Pit <perl@profvince.com>
Date: Thu, 20 Aug 2009 08:26:59 +0000 (+0200)
Subject: Teach perlivp about the new stucture of the IO::Compress module suite
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7598a06d704c8e12489be3a9098367ae55f5a89;p=p5sagit%2Fp5-mst-13.2.git

Teach perlivp about the new stucture of the IO::Compress module suite

This fixes [perl #68682] : 5.10.1 ( RC1 and RC2 ) perlivp fails IO/Compress
---

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index a862cee..762b4b3 100644
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -208,12 +208,12 @@ if (defined($Config{'extensions'})) {
             next if ($_ eq 'threads');
             next if ($_ eq 'threads/shared');
         }
-	# that's a distribution name, not a module name
-	next if /^IO_Compress_(?:Zlib|Base)$/;
+        # that's a distribution name, not a module name
+        next if $_ eq 'IO/Compress';
         next if $_ eq 'Devel/DProf'; 
-	# test modules
-	next if $_ eq 'XS/APItest';
-	next if $_ eq 'XS/Typemap';
+        # test modules
+        next if $_ eq 'XS/APItest';
+        next if $_ eq 'XS/Typemap';
            # 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.