This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch for bug in SelfLoader.pm
authorMike Schilli <m@perlmeister.com>
Tue, 7 Nov 2006 13:39:30 +0000 (05:39 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Nov 2006 10:28:49 +0000 (10:28 +0000)
Message-ID: <20061107132809.I31331@spiral.corp.yahoo.com>

p4raw-id: //depot/perl@29228

lib/SelfLoader.pm

index 294b6bc..ad58f6e 100644 (file)
@@ -2,7 +2,7 @@ package SelfLoader;
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(AUTOLOAD);
-$VERSION = "1.0905";
+$VERSION = "1.10";
 sub Version {$VERSION}
 $DEBUG = 0;
 
@@ -59,7 +59,7 @@ sub _load_stubs {
 
     print STDERR "SelfLoader::load_stubs($callpack)\n" if $DEBUG;
     croak("$callpack doesn't contain an __DATA__ token")
-        unless fileno($fh);
+        unless defined fileno($fh);
     $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
 
     local($/) = "\n";