[Cooker] urpmi fix

[Ben Reser]

Patch attached that fixes the urpmi problem that causes this error
message to be emitted:
[root@occipital breser]# urpmi.update -a
Can't use string ("") as a subroutine ref while "strict refs" in use at
/usr/lib/perl5/vendor_perl/5.8.0/urpm.pm line 934.

The problem is Perl 5.8.0 was optimizing out the undef and thus you
ended up with an odd number of array elements.  Solution is to give
explicit return from get_proxy().

-- 
Ben Reser <[EMAIL PROTECTED]>
http://ben.reser.org

We tend to see all wars through the lens of the current conflict, and we
mine history for lessons convenient to the present purpose.
- Brian Hayes

--- urpm.pm.orig        2002-07-11 13:19:16.000000000 -0700
+++ urpm.pm     2002-07-11 13:19:37.000000000 -0700
@@ -132,12 +132,13 @@
 sub get_proxy {
     my $proxy = {
                 http_proxy => undef ,
+                ftp_proxy => undef,
                 user => undef,
                 pwd => undef
                };
     local (*F, $_);
     #  open F, "$ENV{HOME}/.wgetrc" or return;
-    open F, "/etc/urpmi/proxy.cfg" or return;
+    open F, "/etc/urpmi/proxy.cfg" or return $proxy;
     while (<F>) {
        chomp; s/#.*$//; s/^\s*//; s/\s*$//;
        /^http_proxy\s*=\s*(.*)$/ and $proxy->{http_proxy} = $1, next;