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

diff --git a/lib/FileCache.pm b/lib/FileCache.pm
index 2db9cbe..b1a30de 100644 (file)
--- 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);
     }