diff options
-rw-r--r-- | Net/Domain.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Net/Domain.pm b/Net/Domain.pm index bbd9ced..dc42998 100644 --- a/Net/Domain.pm +++ b/Net/Domain.pm @@ -16,7 +16,7 @@ use Net::Config; @ISA = qw(Exporter); @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -$VERSION = "2.12"; # $Id: //depot/libnet/Net/Domain.pm#10 $ +$VERSION = "2.13"; # $Id: //depot/libnet/Net/Domain.pm#11 $ my($host,$domain,$fqdn) = (undef,undef,undef); @@ -46,6 +46,15 @@ sub _hostname { elsif ($^O eq 'MacOS') { chomp ($host = `hostname`); } + elsif ($^O eq 'VMS') { ## multiple varieties of net s/w makes this hard + $host = $ENV{'UCX$INET_HOST'} if defined($ENV{'UCX$INET_HOST'}); + $host = $ENV{'MULTINET_HOST_NAME'} if defined($ENV{'MULTINET_HOST_NAME'}); + if (index($host,'.') > 0) { + $fqdn = $host; + ($host,$domain) = $fqdn =~ /^([^\.]+)\.(.*)$/; + } + return $host; + } else { local $SIG{'__DIE__'}; |