On Thu, 17 Jan 2002 12:32:52 -0700, Michael G Schwern wrote:
> On Thu, Jan 17, 2002 at 02:14:14PM +0000, Nicholas Clark wrote:
>> t/Mkbootstrap....ok 4/18Use of uninitialized value in concatenation (.) or
>> string at blib/lib/ExtUtils/Mkbootstrap.pm line 23. Use of uninitialized
>> value in concatenation (.) or string at blib/lib/ExtUtils/Mkbootstrap.pm line
>> 26.
> These look like they're from an "Mkbootstrap()" call with no arguments at line
> 50 of the test. chromatic?
Act now, and you'll get a fix for a warning on line 121 at no extra charge.
-- c
--- lib/ExtUtils/t/~Mkbootstrap.t Thu Jan 17 12:51:35 2002
+++ lib/ExtUtils/t/Mkbootstrap.t Thu Jan 17 12:57:09 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;
