package FileCache;
-our $VERSION = '1.04_01';
+our $VERSION = '1.07';
=head1 NAME
Returns EXPR on success for convenience. You may neglect the
return value and manipulate EXPR as the filehandle directly if you prefer.
+=back
+
=head1 CAVEATS
While it is permissible to C<close> a FileCache managed file,
require 5.006;
use Carp;
-use Config;
use strict;
no strict 'refs';
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]};
}