From 52132e61f423b47161feac0238fce09717d85afa Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 5 Dec 2007 04:26:37 +0000
Subject: [PATCH] Using a lexical loop variable inside recurseFileSystem.

---
 lib/WebGUI/Workflow/Activity/CleanTempStorage.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Workflow/Activity/CleanTempStorage.pm b/lib/WebGUI/Workflow/Activity/CleanTempStorage.pm
index 9bae195b9..594257275 100644
--- a/lib/WebGUI/Workflow/Activity/CleanTempStorage.pm
+++ b/lib/WebGUI/Workflow/Activity/CleanTempStorage.pm
@@ -143,11 +143,10 @@ sub recurseFileSystem {
 	my $self = shift;
     my $start = shift;
 	my $path = shift;
-    my (@filelist, $file);
     if (opendir(DIR,$path)) {
-        @filelist = readdir(DIR);
+        my @filelist = readdir(DIR);
         closedir(DIR);
-        foreach $file (@filelist) {
+        foreach my $file (@filelist) {
             unless ($file eq "." || $file eq "..") {
                 # taking too long, time to abort
                 return $self->WAITING if (time() - $start > 50);