clean unused variables

1 files changed, 5 insertions, 5 deletions

diff --git a/iurt b/iurt
index 44c8779..bb6037f 100755
--- a/iurt
+++ b/iurt
@@ -578,7 +578,7 @@ my (%srpm_version, %provides, %pack_provide, $to_compile, %maint);
 $to_compile = @{$run{todo}};
 $to_compile += check_media(\%run, $config, \%srpm_version,
 	\%provides, \%pack_provide, \%maint) if $run{media};
-$to_compile += search_packages(1, \%run, \%maint,
+$to_compile += search_packages(\%run, \%maint,
 	\%srpm_version, @{$run{extra_dir}}) if $run{extra};
 
 $run{to_compile} = $to_compile;
@@ -822,7 +822,7 @@ retry:
 			 cc => $cc, 
 			 log => $log_dir, 
 			 callback => sub { 
-			     my ($opt, $output) = @_;
+			     my ($opt, $_output) = @_;
 			     if ($run{stop}) {
 				 plog("dumping to a chrooted shell into $chroot_tmp (pid $$)");
 				 # exec does not work because it seems stdin and out are shared between children
@@ -1108,7 +1108,7 @@ sub check_media {
 		plog("Parsing $synthesis_file");
 		my $urpm = urpm->new;
 		$urpm->parse_synthesis($synthesis_file, callback => sub {
-		    my ($urpm, $pkg) = @_;
+		    my ($_urpm, $pkg) = @_;
 		    my $name = $pkg->name;
 		    $provides->{$pkg->fullname} = 1;
 		    foreach ($pkg->provides) {
@@ -1124,7 +1124,7 @@ sub check_media {
     #"
     my $nb;
     foreach my $subdir (@{$config->{all_media}{$run->{media}}}) {
-	$nb += search_packages(0, $run, $maint, $srpm_version, "$config->{repository}/$run->{distro}/SRPMS/$run->{media}/$subdir/");
+	$nb += search_packages($run, $maint, $srpm_version, "$config->{repository}/$run->{distro}/SRPMS/$run->{media}/$subdir/");
     }
     $nb;
 }
@@ -1142,7 +1142,7 @@ sub guess_release_tag_from_status {
 }
 
 sub search_packages {
-    my ($clean, $run, $_maint, $srpm_version, @dir) = @_;
+    my ($run, $_maint, $srpm_version, @dir) = @_;
     my ($to_compile, %rep);
     plog("iurt search_package: @dir");
     # Status is written with the current release tag which may be different