From 3106530ae688a1e1c17f4b50561e9a80997fef30 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 16 Jan 2008 11:13:37 +0000
Subject: perl_checker cleanups

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

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