oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Using a lexical loop variable inside recurseFileSystem.

Browse source
This commit is contained in:
Colin Kuskie 2007-12-05 04:26:37 +00:00
parent d23db44732
commit 52132e61f4
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Workflow/Activity/CleanTempStorage.pm
View file

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