From 6f89345e4d1e0dbb93062f9279d204338f6f98bd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 15:37:39 +0000
Subject: (check_upload_tree) tag 'post' parameter as optional

(better perl_checker SNR)
---
 lib/Iurt/File.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Iurt/File.pm')

diff --git a/lib/Iurt/File.pm b/lib/Iurt/File.pm
index 91feb49..42943de 100644
--- a/lib/Iurt/File.pm
+++ b/lib/Iurt/File.pm
@@ -18,7 +18,7 @@ Return true.
 =cut
 
 sub check_upload_tree {
-    my ($todo, $func, $post) = @_;
+    my ($todo, $func, $o_post) = @_;
 
     # Squash double slashes for cosmetics
     $todo =~ s!/+!/!g;
@@ -49,11 +49,11 @@ sub check_upload_tree {
 				}
 			    }
 			    # cleaning
-			    if ($post) {
+			    if ($o_post) {
 				opendir my $submedia_dir, "$todo/$f/$m/$s";
 				foreach my $r (readdir $submedia_dir) {
 				    $r =~ /^\.{1,2}$/ and next;
-				    $post->($todo, $f, $m, $s, $r);
+				    $o_post->($todo, $f, $m, $s, $r);
 				}
 			    }
 			} else {
-- 
cgit v1.2.1