From 9f4a0543868553fd45429d1c8a464426d7524bf1 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Tue, 20 May 2003 11:50:52 +0000
Subject: Net::Domain - Look in environment on VMS for domainname   (patch from
 Michael Cartmell)

---
 Net/Domain.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Net/Domain.pm b/Net/Domain.pm
index b79ec8f..c213ce9 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.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
-- 
cgit v1.2.3-24-ge0c7