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 (file)
--- 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 (file)
--- 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