diff options
| author | chromatic <chromatic@wgz.org> | 2002-01-17 05:59:04 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-17 22:42:12 +0000 |
| commit | c2b853aa60487b0bf60ca64ff080507e7e28c642 (patch) | |
| tree | 6a0dc5bdfffa2476f975366d823e0cfbd9d3daa3 /lib | |
| parent | e22826fb8e3b63390bea29d85121e795c8643b2f (diff) | |
| download | perl-c2b853aa60487b0bf60ca64ff080507e7e28c642.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/Mkbootstrap.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/ExtUtils/t/Mkbootstrap.t b/lib/ExtUtils/t/Mkbootstrap.t index 571c158c09..bbb689a959 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; |