Net::Domain

- Fix problem with returning last name instead of first name for a
  win32 multi-homed machine

1 files changed, 2 insertions, 2 deletions

diff --git a/Net/Domain.pm b/Net/Domain.pm
index f6f0c0a..328efdb 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.09"; # $Id: //depot/libnet/Net/Domain.pm#7 $
+$VERSION = "2.10"; # $Id: //depot/libnet/Net/Domain.pm#8 $
 
 my($host,$domain,$fqdn) = (undef,undef,undef);
 
@@ -33,7 +33,7 @@ sub _hostname {
         my ($name,$alias,$type,$len,@addr) =  gethostbyname($ENV{'COMPUTERNAME'}||'localhost');
         while (@addr)
          {
-          my $a = pop(@addr);
+          my $a = shift(@addr);
           $host = gethostbyaddr($a,Socket::AF_INET());
           last if defined $host;
          }