diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-28 07:46:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-28 07:46:19 +0000 |
| commit | dc891fc82eae5a3408e840589a736b23787e38c5 (patch) | |
| tree | 656b2d2046d5423949429f2fdfce7122be30b69a /urpm | |
| parent | f24a0ba7c810ede736a049e27934e4f833eab3ad (diff) | |
| download | urpmi-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.pm | 1 |
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. |