Merge pull request #53 from libwww-perl/silent-warning

    silence "Use of uninitialized value in lc" warning

Author: karenetheridge

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;
     };
 }