- fix bug doing "urpmi kernel-source"

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

2 files changed, 7 insertions, 5 deletions

diff --git a/NEWS b/NEWS
index 66e1e23..9893a68 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- fix bug doing "urpmi kernel-source"
+
 Version 2.02 - 18 September 2007, by Pascal "Pixel" Rigaux
 
 - prefer every kernel-<flavor>-devel-<version> packages for which
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;