From a7e645b5dadc9908944e9a19c24b360de618dfc9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 16 Aug 2004 05:37:16 +0000
Subject: better URLPREFIX parsing regexp (handle URLPREFIX = "http://leia")

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 63d4aa4fa..7de75d3f8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1082,7 +1082,7 @@ sub generate_automatic_stage1_params {
     my @ks;
 
     if ($o->{method} eq 'http') {
-	$ENV{URLPREFIX} =~ m!(http|ftp)://([^/:]+)(/.*)! or die;
+	$ENV{URLPREFIX} =~ m!(http|ftp)://([^/:]+)(.*)! or die;
 	$method = $1; #- in stage1, FTP via HTTP proxy is available through FTP config, not HTTP
 	@ks = (server => $2, directory => $3);
     } elsif ($o->{method} eq 'ftp') {
-- 
cgit v1.2.1