From 399d80c8af89d2534313ed44255f04d1b60b6c26 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Fri, 8 Dec 2006 10:47:22 +0000
Subject: [PATCH] Remove 'Parentheses missing around my list at
 WebGUI/Storage.pm line 387.' message.

---
 lib/WebGUI/Storage.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index da16db32e..6954ddd56 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -384,7 +384,8 @@ sub delete {
 		rmtree($path) if ($path);
 		foreach my $subDir ($self->{_part1}.'/'.$self->{_part2}, $self->{_part1}) {
 			my $uDir = $self->session->config->get('uploadsPath') . '/' . $subDir;
-			opendir my $DH, $uDir;
+			my $DH;
+			opendir $DH, $uDir;
 			if (defined $DH) {
 				my @dirs = grep { !/^\.+$/ } readdir($DH);
 				if (scalar @dirs == 0) {