Silence warnings (was Re: [ANNOUNCE] ExtUtils::MakeMaker 5.48_01, the CPAN version)
chromatic [Thu, 17 Jan 2002 12:59:04 +0000 (05:59 -0700)]
Message-ID: <20020117200039.96481.qmail@onion.perl.org>

p4raw-id: //depot/perl@14318

lib/ExtUtils/t/Mkbootstrap.t

index 571c158..bbb689a 100644 (file)
@@ -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;