Skip test for changing TZ if running in a pseudo-fork (on Win32)

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

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 01c5169..a862cee 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!';
@@ -209,8 +209,11 @@ if (defined($Config{'extensions'})) {
             next if ($_ eq 'threads/shared');
         }
        # that's a distribution name, not a module name
-       next if $_ eq 'IO/Compress/Zlib';
+       next if /^IO_Compress_(?:Zlib|Base)$/;
         next if $_ eq 'Devel/DProf'; 
+       # 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.
@@ -284,6 +287,12 @@ for (@modules) {
     $version = undef;
     @missing = ();
     @missing = $installed -> validate($_);
+
+    # .bs files are optional
+    @missing = grep { ! /\.bs$/ } @missing;
+    # man files are often compressed
+    @missing = grep { ! ( -s "$_.gz" || -s "$_.bz2" ) } @missing;
+
     if ($#missing >= 0) {
         print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";
         print '# ',join(' ',@missing),"\n";