diff options
| author | bbucklan@jpl-devvax.jpl.nasa.gov <bbucklan@jpl-devvax.jpl.nasa.gov> | 2004-06-15 16:55:22 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-06-22 21:00:10 +0000 |
| commit | 8ac28360b8ecd8e80ea061435399e96607e3a844 (patch) | |
| tree | 2ee5095a2b06824dd11619371928f79d0c831680 /lib/FileCache.pm | |
| parent | 9c095db2b2b99b70926d6f45029789d614441504 (diff) | |
| download | perl-8ac28360b8ecd8e80ea061435399e96607e3a844.tar.gz | |
Adjust array index in FileCache.pm.
Subject: [perl #30291] Use of uninitialized value (array index reference) in FileCache.pm module at line 140
From: bbucklan@jpl-devvax.jpl.nasa.gov (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.9-30291-90552.18.5392299690759@perl.org>
p4raw-id: //depot/perl@22971
Diffstat (limited to 'lib/FileCache.pm')
| -rw-r--r-- | lib/FileCache.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/FileCache.pm b/lib/FileCache.pm index 2db9cbe611..b1a30dec3a 100644 --- a/lib/FileCache.pm +++ b/lib/FileCache.pm @@ -138,7 +138,7 @@ sub cacheout { ( $mode !~ /^\s*(?:>>|\+?>|\+?<|\|\-|)|\-\|\s*$/ ); # Mode changed? - if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[2] ){ + if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[1] ){ &cacheout_close($file, 1); } |