diff options
| author | Mike Schilli <m@perlmeister.com> | 2006-11-07 05:39:30 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-08 10:28:49 +0000 |
| commit | 2ef8903890b0614e14c549412f5f86d4cf5b54cd (patch) | |
| tree | b43ebb6a1c2d44c4c838eb766e59875b459f2925 | |
| parent | b6e5a7158d44b57a37b308aaf8089cb12bd3d09b (diff) | |
| download | perl-2ef8903890b0614e14c549412f5f86d4cf5b54cd.tar.gz | |
Patch for bug in SelfLoader.pm
Message-ID: <20061107132809.I31331@spiral.corp.yahoo.com>
p4raw-id: //depot/perl@29228
| -rw-r--r-- | lib/SelfLoader.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm index 294b6bc6b0..ad58f6e8da 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"; |