diff options
| author | Graham Barr <gbarr@pobox.com> | 2003-06-02 12:13:35 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2003-06-02 12:13:35 +0000 |
| commit | dea4d7dfbb03f4a0014d53b245f3d8b5b801961c (patch) | |
| tree | 5168bb5aeaf8fdced9a6f6b542d656343e403bb5 /lib/Net/Domain.pm | |
| parent | 3549bba96de364b82f346b5405db53a54cdb8630 (diff) | |
| download | perl-dea4d7dfbb03f4a0014d53b245f3d8b5b801961c.tar.gz | |
Sync with libnet 1.14
p4raw-id: //depot/perl@19661
Diffstat (limited to 'lib/Net/Domain.pm')
| -rw-r--r-- | lib/Net/Domain.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Net/Domain.pm b/lib/Net/Domain.pm index b79ec8fa07..c213ce98e2 100644 --- a/lib/Net/Domain.pm +++ b/lib/Net/Domain.pm @@ -16,7 +16,7 @@ use Net::Config; @ISA = qw(Exporter); @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -$VERSION = "2.17"; # $Id: //depot/libnet/Net/Domain.pm#19 $ +$VERSION = "2.18"; # $Id: //depot/libnet/Net/Domain.pm#20 $ my($host,$domain,$fqdn) = (undef,undef,undef); @@ -164,6 +164,11 @@ sub _hostdomain { : undef; }; + if ( $^O eq 'VMS' ) { + $dom ||= $ENV{'TCPIP$INET_DOMAIN'} + || $ENV{'UCX$INET_DOMAIN'}; + } + chop($dom = `domainname 2>/dev/null`) unless(defined $dom || $^O =~ /^(?:cygwin|MSWin32)/); @@ -331,6 +336,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/Domain.pm#19 $> +I<$Id: //depot/libnet/Net/Domain.pm#20 $> =cut |