(check_upload_tree) kill unused arg

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,);
 
 
 #