summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorJohan Vromans <jvromans@squirrel.nl>2007-04-25 16:37:16 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-25 15:31:29 +0000
commitdae61315f25fcf8c7df4b4125f53b733e5e58dea (patch)
tree37600f4f712be36a6915d0427dc4030797f4554a /utils
parent4de05cebc806d4b25ef35cec05858ca1c0db23e5 (diff)
downloadperl-dae61315f25fcf8c7df4b4125f53b733e5e58dea.tar.gz
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
Diffstat (limited to 'utils')
-rw-r--r--utils/perlivp.PL6
1 files changed, 6 insertions, 0 deletions
diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 276ba76e0b..544efa3947 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";