From 1b4611bb481bb90dae60f9927f24be01f39a00a1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 15:36:56 +0000
Subject: (check_upload_tree) kill unused arg

---
 emi              | 4 ++--
 lib/Iurt/File.pm | 2 +-
 ulri             | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/emi b/emi
index 6ba4d21..0474951 100755
--- a/emi
+++ b/emi
@@ -168,8 +168,8 @@ sub todo_func {
     }
 }
 
-check_upload_tree(\%run, $done, \&done_func, \&done_post);
-check_upload_tree(\%run, $todo, \&todo_func,);
+check_upload_tree($done, \&done_func, \&done_post);
+check_upload_tree($todo, \&todo_func,);
 
 
 #
diff --git a/lib/Iurt/File.pm b/lib/Iurt/File.pm
index ba5f718..91feb49 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, $post) = @_;
+    my ($todo, $func, $post) = @_;
 
     # Squash double slashes for cosmetics
     $todo =~ s!/+!/!g;
diff --git a/ulri b/ulri
index 27bdf35..89e281c 100755
--- a/ulri
+++ b/ulri
@@ -277,12 +277,12 @@ sub done_func {
 }
 
 
-check_upload_tree(\%run, $todo, \&todo_func, \&todo_post);
+check_upload_tree($todo, \&todo_func, \&todo_post);
 
 # getting already compiled packages
 # The cache should not be needed if the .done file are removed as the same
 # time as the src.rpm in the todo tree
-check_upload_tree(\%run, $done, \&done_func,);
+check_upload_tree($done, \&done_func,);
 
 
 #
-- 
cgit v1.2.1