better prototype for _findindeps()

1 files changed, 4 insertions, 4 deletions

diff --git a/urpm.pm b/urpm.pm
index 94d1b5f7..7567a116 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -2087,17 +2087,17 @@ sub register_rpms {
 }
 
 sub _findindeps {
-    my ($urpm, $found, $qv, $v, %options) = @_;
+    my ($urpm, $found, $qv, $v, $caseinsensitive, $src) = @_;
 
     foreach (keys %{$urpm->{provides}}) {
 	#- search through provides to find if a provide matches this one;
 	#- but manage choices correctly (as a provides may be virtual or
 	#- defined several times).
-	/$qv/ || !$options{caseinsensitive} && /$qv/i or next;
+	/$qv/ || !$caseinsensitive && /$qv/i or next;
 
 	my @list = grep { defined $_ } map {
 	    my $pkg = $urpm->{depslist}[$_];
-	    $pkg && ($options{src} ? $pkg->arch eq 'src' : $pkg->arch ne 'src')
+	    $pkg && ($src ? $pkg->arch eq 'src' : $pkg->arch ne 'src')
 	      ? $pkg->id : undef;
 	} keys %{$urpm->{provides}{$_} || {}};
 	@list > 0 and push @{$found->{$v}}, join '|', @list;
@@ -2145,7 +2145,7 @@ sub search_packages {
 	}
 
 	if ($options{use_provides} && $options{fuzzy}) {
-	    _findindeps($urpm, \%found, $qv, $v, %options);
+	    _findindeps($urpm, \%found, $qv, $v, $options{caseinsensitive}, $options{src});
 	}
 
 	foreach my $id (defined $urpm->{searchmedia} ?