Upgrade to ExtUtils-Manifest-1.49.

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / Liblist.t

diff --git a/lib/ExtUtils/t/Liblist.t b/lib/ExtUtils/t/Liblist.t
index 2ba1653..f8d3023 100644 (file)
--- a/lib/ExtUtils/t/Liblist.t
+++ b/lib/ExtUtils/t/Liblist.t
@@ -13,7 +13,7 @@ chdir 't';
 
 use strict;
 use Test::More tests => 6;
-use Data::Dumper;
+
 
 BEGIN {
     use_ok( 'ExtUtils::Liblist' );
@@ -26,10 +26,11 @@ ok( defined &ExtUtils::Liblist::ext,
     my @warn;
     local $SIG{__WARN__} = sub {push @warn, [@_]};
 
-    my @out = ExtUtils::Liblist->ext('-ln0tt43r3_perl');
+    my $ll = bless {}, 'ExtUtils::Liblist';
+    my @out = $ll->ext('-ln0tt43r3_perl');
     is( @out, 4, 'enough output' );
     unlike( $out[2], qr/-ln0tt43r3_perl/, 'bogus library not added' );
     ok( @warn, 'had warning');
 
-    is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
+    is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag join "\n", @warn;
 }