Change 14318 by jhi@alpha on 2002/01/17 22:42:12
Subject: [PATCH lib/ExtUtils/t/Mkbootstrap] Silence warnings (was Re:
[ANNOUNCE] ExtUtils::MakeMaker 5.48_01, the CPAN version)
From: chromatic <[EMAIL PROTECTED]>
Date: Thu, 17 Jan 2002 12:59:04 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/ExtUtils/t/Mkbootstrap.t#2 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/Mkbootstrap.t#2 (text) ====
Index: perl/lib/ExtUtils/t/Mkbootstrap.t
--- perl/lib/ExtUtils/t/Mkbootstrap.t.~1~ Thu Jan 17 15:45:05 2002
+++ perl/lib/ExtUtils/t/Mkbootstrap.t Thu Jan 17 15:45:05 2002
@@ -1,4 +1,4 @@
-#!./perl
+#!./perl -w
BEGIN {
chdir 't' if -d 't';
@@ -10,7 +10,6 @@
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 @@
# 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 @@
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;
End of Patch.
