From 704e57da612feb3f9085f43dbdca1f6f6e7bcf2b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Sep 2007 15:07:44 +0000
Subject: - fix bug doing "urpmi kernel-source"

("find" must be seen by perl compiler before using it)
---
 URPM/Resolve.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'URPM')

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;
-- 
cgit v1.2.1