Upgrade to SelfLoader-1.15

p4raw-id: //depot/perl@33097

diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index b53587f..5605c25 100644 (file)
--- a/lib/SelfLoader.pm
+++ b/lib/SelfLoader.pm
@@ -1,7 +1,7 @@
 package SelfLoader;
 use 5.008;
 use strict;
-our $VERSION = "1.13_03";
+our $VERSION = "1.15";
 
 # The following bit of eval-magic is necessary to make this work on
 # perls < 5.009005.

diff --git a/lib/SelfLoader/t/01SelfLoader.t b/lib/SelfLoader/t/01SelfLoader.t
index 99ba997..68c1229 100755 (executable)
--- 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