Document UNIVERSAL->import deprecation in perldelta

[p5sagit/p5-mst-13.2.git] / utils / perlivp.PL

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 01fee9e..9783261 100644 (file)
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -119,7 +119,7 @@ print "## Checking Perl version via variable `\$]'.\n" if $opt{'p'};
 !NO!SUBS!
 
 print OUT <<"!GROK!THIS!";
-my \$ivp_VERSION = $];
+my \$ivp_VERSION = "$]";
 
 !GROK!THIS!
 print OUT <<'!NO!SUBS!';
@@ -208,12 +208,16 @@ 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)$/;
-        next if $_ eq 'Devel/DProf'; 
-       # test modules
-       next if $_ eq 'XS/APItest';
-       next if $_ eq 'XS/Typemap';
+        # that's a distribution name, not a module name
+        next if $_ eq 'IO/Compress';
+        next if $_ eq 'Devel/DProf';
+        next if $_ eq 'libnet';
+        next if $_ eq 'Locale/Codes';
+        next if $_ eq 'podlators';
+        # test modules
+        next if $_ eq 'XS/APItest';
+        next if $_ eq 'XS/APItest/KeywordRPN';
+        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.