From c2b853aa60487b0bf60ca64ff080507e7e28c642 Mon Sep 17 00:00:00 2001 From: chromatic Date: Thu, 17 Jan 2002 05:59:04 -0700 Subject: [PATCH] Silence warnings (was Re: [ANNOUNCE] ExtUtils::MakeMaker 5.48_01, the CPAN version) Message-ID: <20020117200039.96481.qmail@onion.perl.org> p4raw-id: //depot/perl@14318 --- lib/ExtUtils/t/Mkbootstrap.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/ExtUtils/t/Mkbootstrap.t b/lib/ExtUtils/t/Mkbootstrap.t index 571c158..bbb689a 100644 --- a/lib/ExtUtils/t/Mkbootstrap.t +++ b/lib/ExtUtils/t/Mkbootstrap.t @@ -1,4 +1,4 @@ -#!./perl +#!./perl -w BEGIN { chdir 't' if -d 't'; @@ -10,7 +10,6 @@ use Test::More tests => 18; use_ok( 'ExtUtils::Mkbootstrap' ); - # Mkbootstrap makes a backup copy of "$_[0].bs" if it exists and is non-zero my $file_is_ready; local *OUT; @@ -44,7 +43,7 @@ my $out = tie *STDOUT, 'TieOut'; # with $Verbose set, it should print status messages about libraries $ExtUtils::Mkbootstrap::Verbose = 1; -Mkbootstrap(); +Mkbootstrap(''); is( $out->read, "\tbsloadlibs=\n", 'should report libraries in Verbose mode' ); Mkbootstrap('', 'foo'); @@ -119,6 +118,8 @@ SKIP: { close OUT; # if $DynaLoader::bscode is set, write its contents to the file + # localize the variable to prevent "used only once" + local $DynaLoader::bscode; $DynaLoader::bscode = 'Wall'; $ExtUtils::Mkbootstrap::Verbose = 0; -- 2.7.4