From: Mike Schilli <m@perlmeister.com>
Date: Tue, 7 Nov 2006 13:39:30 +0000 (-0800)
Subject: Patch for bug in SelfLoader.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ef8903890b0614e14c549412f5f86d4cf5b54cd;p=p5sagit%2Fp5-mst-13.2.git

Patch for bug in SelfLoader.pm
Message-ID: <20061107132809.I31331@spiral.corp.yahoo.com>

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

diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index 294b6bc..ad58f6e 100644
--- a/lib/SelfLoader.pm
+++ b/lib/SelfLoader.pm
@@ -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";