From: bbucklan@jpl-devvax.jpl.nasa.gov <bbucklan@jpl-devvax.jpl.nasa.gov>
Date: Tue, 15 Jun 2004 16:55:22 +0000 (+0000)
Subject: Adjust array index in FileCache.pm.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ac28360b8ecd8e80ea061435399e96607e3a844;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
     }