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

fixed the test problem

Browse source
This commit is contained in:
JT Smith 2006-12-08 16:23:07 +00:00
parent 5c62975421
commit ba72915167
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Storage.pm
View file

@ -384,8 +384,7 @@ sub delete {
rmtree($path) if ($path);
foreach my $subDir ($self->{_part1}.'/'.$self->{_part2}, $self->{_part1}) {
my $uDir = $self->session->config->get('uploadsPath') . '/' . $subDir;
my $DH;
opendir $DH, $uDir;
opendir my ($DH), $uDir;
if (defined $DH) {
my @dirs = grep { !/^\.+$/ } readdir($DH);
if (scalar @dirs == 0) {