- fix bug doing "urpmi kernel-source"

("find" must be seen by perl compiler before using it)

1 files changed, 5 insertions, 5 deletions

diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 29c6b5a..c3ca974 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -9,6 +9,11 @@ use Config;
 
 sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n }
 sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ }
+sub find(&@) {
+    my $f = shift;
+    $f->($_) and return $_ foreach @_;
+    undef;
+}
 
 sub property2name {
     $_[0] =~ /^([^\s\[]*)/ && $1;
@@ -297,11 +302,6 @@ sub _choose_required {
     $pkg;
 }
 
-sub find(&@) {
-    my $f = shift;
-    $f->($_) and return $_ foreach @_;
-    undef;
-}
 sub pkg2media {
    my ($mediums, $p) = @_; 
    my $id = $p->id;