From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 28 Jan 2008 19:53:55 +0000 (+0000)
Subject: Upgrade to SelfLoader-1.15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b75eac34e2a299e58c22cff8f1e90b518e8af178;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to SelfLoader-1.15

p4raw-id: //depot/perl@33097
---

diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index b53587f..5605c25 100644
--- 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
--- 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