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

Remove 'Parentheses missing around my list at WebGUI/Storage.pm line 387.' message.

Browse source
This commit is contained in:
Martin Kamerbeek 2006-12-08 10:47:22 +00:00
parent 3984fc153d
commit 399d80c8af
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Storage.pm
View file

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