Small perlivp.PL updates

Subject: Re: [Andreas J. Koenig] C3 MRO breaks Params::Util and Graph
Message-ID: <m2r6q8iq9v.fsf@phoenix.squirrel.nl>

p4raw-id: //depot/perl@31077

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 276ba76..544efa3 100644 (file)
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -287,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";