From cc529231413f4ab54f20e60f7e1c08b42c250d46 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 12 Jun 2001 22:45:51 +0000
Subject: typo

---
 perl-install/proxy.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/proxy.pm b/perl-install/proxy.pm
index 163d67f26..652388a83 100644
--- a/perl-install/proxy.pm
+++ b/perl-install/proxy.pm
@@ -11,7 +11,7 @@ use c;
 sub main {
     my ($prefix, $in, $install) = @_;
     my $proxy_cfg = {};
-    my $config_file; = "$prefix/usr/lib/wgetrc";
+    my $config_file = "$prefix/usr/lib/wgetrc";
 
     # grab current config
     foreach (cat_($config_file)) {
@@ -31,6 +31,7 @@ sub main {
     # http proxy
   step_http_proxy:
     undef $::Wizard_no_previous;
+    $proxy_cfg->{http_url} ||= "http:";
     $in->ask_from_entries_refH(_("Proxy configuration"),
                                _("Please fill in the http proxy informations"),
 			       [ { label => _("URL"), val => \$proxy_cfg->{http_url} },
-- 
cgit v1.2.1