Change 33097 by [EMAIL PROTECTED] on 2008/01/28 19:53:55
Upgrade to SelfLoader-1.15
Affected files ...
... //depot/perl/lib/SelfLoader.pm#27 edit
... //depot/perl/lib/SelfLoader/t/01SelfLoader.t#3 edit
Differences ...
==== //depot/perl/lib/SelfLoader.pm#27 (text) ====
Index: perl/lib/SelfLoader.pm
--- perl/lib/SelfLoader.pm#26~32830~ 2008-01-04 07:48:32.000000000 -0800
+++ perl/lib/SelfLoader.pm 2008-01-28 11:53:55.000000000 -0800
@@ -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.
==== //depot/perl/lib/SelfLoader/t/01SelfLoader.t#3 (xtext) ====
Index: perl/lib/SelfLoader/t/01SelfLoader.t
--- perl/lib/SelfLoader/t/01SelfLoader.t#2~32830~ 2008-01-04
07:48:32.000000000 -0800
+++ perl/lib/SelfLoader/t/01SelfLoader.t 2008-01-28 11:53:55.000000000
-0800
@@ -178,12 +178,15 @@
}
# 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
End of Patch.
