X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFileCache.pm;h=78a3e67c315e18f33c8e42a0c9d3e90b22cb4e6d;hb=8b2eb6baf3a025e29d66405a3bae06e917411ea9;hp=3d01371b3b32853e4371984abbfc22a3cccbea79;hpb=c07a80fdfe3926b5eb0585b674aa5d1f57b32ade;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/FileCache.pm b/lib/FileCache.pm
index 3d01371..78a3e67 100644
--- a/lib/FileCache.pm
+++ b/lib/FileCache.pm
@@ -1,5 +1,7 @@
 package FileCache;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 FileCache - keep more files open than the system permits
@@ -19,7 +21,7 @@ maximum.
 =head1 BUGS
 
 F<sys/param.h> lies with its C<NOFILE> define on some systems,
-so you may have to set $cacheout::maxopen yourself.
+so you may have to set $FileCache::cacheout_maxopen yourself.
 
 =cut
 
@@ -53,7 +55,7 @@ sub cacheout {
     ($file) = @_;
     unless (defined $cacheout_maxopen) {
 	if (open(PARAM,'/usr/include/sys/param.h')) {
-	    local $.;
+	    local ($_, $.);
 	    while (<PARAM>) {
 		$cacheout_maxopen = $1 - 4
 		    if /^\s*#\s*define\s+NOFILE\s+(\d+)/;