From 3cd0e109a20b32ce0909326a70123a04a203f11f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 4 Aug 2004 08:49:51 +0000
Subject: Verify that regexp matched

---
 perl-install/http.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/http.pm b/perl-install/http.pm
index 6e522597a..bce912120 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -15,6 +15,7 @@ sub getFile {
 
     # can be used for ftp urls (with http proxy)
     my ($host, $port, $path) = $url =~ m,^(?:http|ftp)://([^/:]+)(?::(\d+))?(/\S*)?$,;
+    defined $host or return undef;
 
     my $use_http_proxy = $ENV{PROXY} && $ENV{PROXYPORT};
 
-- 
cgit v1.2.1