summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-28 07:46:19 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-28 07:46:19 +0000
commitdc891fc82eae5a3408e840589a736b23787e38c5 (patch)
tree656b2d2046d5423949429f2fdfce7122be30b69a /urpm
parentf24a0ba7c810ede736a049e27934e4f833eab3ad (diff)
downloadurpmi-dc891fc82eae5a3408e840589a736b23787e38c5.tar
urpmi-dc891fc82eae5a3408e840589a736b23787e38c5.tar.gz
urpmi-dc891fc82eae5a3408e840589a736b23787e38c5.tar.bz2
urpmi-dc891fc82eae5a3408e840589a736b23787e38c5.tar.xz
urpmi-dc891fc82eae5a3408e840589a736b23787e38c5.zip
Cleanup some perl warnings
Diffstat (limited to 'urpm')
-rw-r--r--urpm/util.pm1
1 files changed, 1 insertions, 0 deletions
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.