diff options
author | Karen Etheridge <ether@cpan.org> | 2018-04-22 14:15:02 +0200 |
---|---|---|
committer | Karen Etheridge <ether@cpan.org> | 2018-04-22 14:15:02 +0200 |
commit | b54ab3a04b27ee9e8c77f2b640a9f0ce81f033bf (patch) | |
tree | 69bfe055c216c6208921f72af9ad257df16c5dc1 | |
parent | c16a3c1c3f2f37ff03be3813258cdfe3118b140a (diff) | |
parent | 4f95d2c57e993be8ec924296ca1c99fc60e7a5a8 (diff) | |
download | uri-b54ab3a04b27ee9e8c77f2b640a9f0ce81f033bf.tar.gz |
Merge pull request #53 from libwww-perl/silent-warning
silence "Use of uninitialized value in lc" warning
-rw-r--r-- | lib/URI/file/Base.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/URI/file/Base.pm b/lib/URI/file/Base.pm index fcf7dba..8f11dda 100644 --- a/lib/URI/file/Base.pm +++ b/lib/URI/file/Base.pm @@ -65,8 +65,8 @@ sub _file_is_localhost return 1 if $host eq "localhost"; eval { require Net::Domain; - lc(Net::Domain::hostfqdn()) eq $host || - lc(Net::Domain::hostname()) eq $host; + lc(Net::Domain::hostfqdn() || '') eq $host || + lc(Net::Domain::hostname() || '') eq $host; }; } |