From: Paul Marquess <paul.marquess@btinternet.com>
Date: Sun, 10 Dec 2000 15:35:07 +0000 (+0000)
Subject: Ambiguous -%c() resolved as a file test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a022e8e9f2eec4dde5e31513c787e06f89c8a31;p=p5sagit%2Fp5-mst-13.2.git

Ambiguous -%c() resolved as a file test
Message-ID: <002601c062be$c5f749c0$a20a140a@bfs.phone.com>

p4raw-id: //depot/perl@8074
---

diff --git a/lib/ExtUtils/Liblist.pm b/lib/ExtUtils/Liblist.pm
index 5e2f91d..48c0ad5 100644
--- a/lib/ExtUtils/Liblist.pm
+++ b/lib/ExtUtils/Liblist.pm
@@ -1,5 +1,7 @@
 package ExtUtils::Liblist;
 
+no warnings 'ambiguous'; # silence the -f() file tests.
+
 @ISA = qw(ExtUtils::Liblist::Kid File::Spec);
 
 sub lsdir {
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index e926ca7..c88f8f7 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -1712,6 +1712,7 @@ from the perl source tree.
 	$self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
 	my $perl_h;
 
+	no warnings 'uninitialized' ;
 	if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))
 	    and not $old){
 	    # Maybe somebody tries to build an extension with an