From dc891fc82eae5a3408e840589a736b23787e38c5 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 28 Apr 2004 07:46:19 +0000
Subject: Cleanup some perl warnings

---
 urpm/util.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'urpm/util.pm')

diff --git a/urpm/util.pm b/urpm/util.pm
index cbfcb06b..01121284 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -19,6 +19,7 @@ sub reduce_pathname {
     #- clean url to remove any macro (which cannot be solved now).
     #- take care if this is a true url and not a simple pathname.
     my ($host, $dir) = $url =~ m|([^:/]*://[^/]*/)?(.*)|;
+    $host = '' if !defined $host;
 
     #- remove any multiple /s or trailing /.
     #- then split all components of pathname.
-- 
cgit v1.2.1