From: Johan Vromans <jvromans@squirrel.nl>
Date: Wed, 25 Apr 2007 14:37:16 +0000 (+0200)
Subject: Small perlivp.PL updates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dae61315f25fcf8c7df4b4125f53b733e5e58dea;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";