This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test for fileno definedness instead of truth
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 31 Mar 2006 08:00:08 +0000 (08:00 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 31 Mar 2006 08:00:08 +0000 (08:00 +0000)
Don't load Config.pm, which isn't used

p4raw-id: //depot/perl@27639

lib/FileCache.pm

index 02bde7e..285307f 100644 (file)
@@ -1,6 +1,6 @@
 package FileCache;
 
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 
 =head1 NAME
 
@@ -80,7 +80,6 @@ so you may have to set I<maxopen> yourself.
 
 require 5.006;
 use Carp;
-use Config;
 use strict;
 no strict 'refs';
 
@@ -137,7 +136,7 @@ sub cacheout_open {
 sub cacheout_close {
   # Short-circuit in case the filehandle disappeared
   my $pkg = caller($_[1]||0);
-  fileno(*{$pkg . '::' . $_[0]}) &&
+  defined fileno(*{$pkg . '::' . $_[0]}) &&
     CORE::close(*{$pkg . '::' . $_[0]});
   delete $isopen{$_[0]};
 }