From 670e2f85089210a3e782d147c3ef4de0ca2cace0 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 29 Jan 2003 04:46:53 +0000
Subject: FNF: not use $_

---
 fml/lib/File/CacheDir.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fml/lib/File/CacheDir.pm')

diff --git a/fml/lib/File/CacheDir.pm b/fml/lib/File/CacheDir.pm
index f676dbc4..32622951 100644
--- a/fml/lib/File/CacheDir.pm
+++ b/fml/lib/File/CacheDir.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: CacheDir.pm,v 1.21 2002/09/28 09:27:43 fukachan Exp $
+# $FML: CacheDir.pm,v 1.22 2002/12/23 14:34:22 fukachan Exp $
 #
 
 package File::CacheDir;
@@ -278,7 +278,7 @@ sub get_latest_value
     opendir($dh, $dir);
 
     my @dh = ();
-    for (readdir($dh)) { push(@dh, $_) if /^\d+/;}
+    for my $dir (readdir($dh)) { push(@dh, $dir) if $dir =~ /^\d+/;}
     @dh = sort { $b <=> $a } @dh;
 
     eval q{ use File::Spec;};
-- 
cgit v1.2.1