From e93ca98dd5aad191b20c0da0b86f21ad5e12dcd7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Nov 2002 01:08:19 +0000
Subject: perl_checker adaptations

---
 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 6e0003e97..700041382 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -936,7 +936,7 @@ sub generate_automatic_stage1_params {
     my @ks = "method:$o->{method}";
 
     if ($o->{method} eq 'http') {
-	"$ENV{URLPREFIX}" =~ m|http://([^/:]+)/(.*)| or die;
+	$ENV{URLPREFIX} =~ m|http://([^/:]+)/(.*)| or die;
 	push @ks, "server:$1", "directory:$2";
     } elsif ($o->{method} eq 'ftp') {
 	push @ks,  "server:$ENV{HOST}", "directory:$ENV{PREFIX}", "user:$ENV{LOGIN}", "pass:$ENV{PASSWORD}";
-- 
cgit v1.2.1