Change 12570 by jhi@alpha on 2001/10/22 18:34:54
Be more robust if no hostname or domainname
(especially the latter)
Affected files ...
... //depot/perl/lib/Net/Domain.pm#5 edit
Differences ...
==== //depot/perl/lib/Net/Domain.pm#5 (text) ====
Index: perl/lib/Net/Domain.pm
--- perl/lib/Net/Domain.pm.~1~ Mon Oct 22 12:45:05 2001
+++ perl/lib/Net/Domain.pm Mon Oct 22 12:45:05 2001
@@ -224,13 +224,14 @@
# eleminate DNS lookups
return $fqdn = $host . "." . $domain
- if($host !~ /\./ && $domain =~ /\./);
+ if(defined $host && defined $domain &&
+ $host !~ /\./ && $domain =~ /\./);
# For hosts that have no name, just an IP address
- return $fqdn = $host if $host =~ /^\d+(\.\d+){3}$/;
+ return $fqdn = $host if defined $host && $host =~ /^\d+(\.\d+){3}$/;
- my @host = split(/\./, $host);
- my @domain = split(/\./, $domain);
+ my @host = defined $host ? split(/\./, $host) : ('localhost');
+ my @domain = defined $domain ? split(/\./, $domain) : ();
my @fqdn = ();
# Determine from @host & @domain the FQDN
End of Patch.
