From: chromatic <chromatic@wgz.org>
Date: Thu, 17 Jan 2002 12:59:04 +0000 (-0700)
Subject: Silence warnings (was Re: [ANNOUNCE] ExtUtils::MakeMaker 5.48_01, the CPAN version)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2b853aa60487b0bf60ca64ff080507e7e28c642;p=p5sagit%2Fp5-mst-13.2.git

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
---

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;