diff options
author | Steve Peters <steve@fisharerojo.org> | 2008-01-28 19:53:55 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2008-01-28 19:53:55 +0000 |
commit | b75eac34e2a299e58c22cff8f1e90b518e8af178 (patch) | |
tree | 6054e4ce4717be457ad2e64238981a7b5334da3e /lib/SelfLoader/t | |
parent | b41b1dd440c5da8808066ee3650a2655b234e891 (diff) | |
download | perl-b75eac34e2a299e58c22cff8f1e90b518e8af178.tar.gz |
Upgrade to SelfLoader-1.15
p4raw-id: //depot/perl@33097
Diffstat (limited to 'lib/SelfLoader/t')
-rwxr-xr-x | lib/SelfLoader/t/01SelfLoader.t | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lib/SelfLoader/t/01SelfLoader.t b/lib/SelfLoader/t/01SelfLoader.t index 99ba997619..68c12296d9 100755 --- a/lib/SelfLoader/t/01SelfLoader.t +++ b/lib/SelfLoader/t/01SelfLoader.t @@ -178,12 +178,15 @@ if ($@ =~ /^Undefined subroutine/) { } # Try to read from the data file handle -my $foodata = <Foo::DATA>; -close Foo::DATA; -if (defined $foodata) { - print "not ok 18 # $foodata\n"; -} else { - print "ok 18\n"; +{ + local $SIG{__WARN__} = sub { my $warn = shift; }; + my $foodata = <Foo::DATA>; + close Foo::DATA; + if (defined $foodata) { + print "not ok 18 # $foodata\n"; + } else { + print "ok 18\n"; + } } # Check that __END__ DATA is honoured |