diff options
| author | Roderick Schertler <roderick@gate.net> | 1997-01-08 23:45:58 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
| commit | 7adad424447c8a24bce71f2593459be2ef4eb957 (patch) | |
| tree | fa09a14d22dd838ecb6640071ccbb032e6140c29 /lib/cacheout.pl | |
| parent | a0b8c8c13b377533a792c02987f7129f1884ba85 (diff) | |
| download | perl-7adad424447c8a24bce71f2593459be2ef4eb957.tar.gz | |
Re: FileCache::cacheout clobbers $_
This bug report was from last July, but the bug is still there.
FileCache.pm and cacheout.pl clobber $_.
p5p-msgid: <pz3ewb3189.fsf@eeyore.ibcinc.com>
Diffstat (limited to 'lib/cacheout.pl')
| -rw-r--r-- | lib/cacheout.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cacheout.pl b/lib/cacheout.pl index 48d594bf82..64378cffc6 100644 --- a/lib/cacheout.pl +++ b/lib/cacheout.pl @@ -35,7 +35,7 @@ $seq = 0; $numopen = 0; if (open(PARAM,'/usr/include/sys/param.h')) { - local($.); + local($_, $.); while (<PARAM>) { $maxopen = $1 - 4 if /^\s*#\s*define\s+NOFILE\s+(\d+)/; } |