From ddf4f3f2a50d2f9f5aabd2ab0a9a96cee4df8412 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Sun, 13 Apr 2014 20:33:12 +0000
Subject: Please perl by adding some parenthesis

---
 lib/Iurt/File.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Iurt/File.pm b/lib/Iurt/File.pm
index 9eb00f7..618aab2 100644
--- a/lib/Iurt/File.pm
+++ b/lib/Iurt/File.pm
@@ -16,7 +16,7 @@ sub check_upload_tree {
     # Squash double slashes for cosmetics
     $todo =~ s!/+!/!g;
 
-    opendir my $dir, $todo;
+    opendir (my $dir, $todo);
     plog('INFO', "check dir: $todo");
 
     foreach my $f (readdir $dir) {
-- 
cgit v1.2.1