Also in Cygwin use Socket to figure out domainname

(if any) (avoids trying to call external 'domainname',
which doesn't at the moment exist in Cygwin)

p4raw-id: //depot/perl@10858

diff --git a/lib/Net/Domain.pm b/lib/Net/Domain.pm
index c1b0140..189bb73 100644 (file)
--- a/lib/Net/Domain.pm
+++ b/lib/Net/Domain.pm
@@ -28,7 +28,7 @@ sub _hostname {
     return $host
        if(defined $host);
 
-    if ($^O eq 'MSWin32') {
+    if ($^O eq 'MSWin32' || $^O eq 'cygwin') {
         require Socket;
         my ($name,$alias,$type,$len,@addr) =  gethostbyname($ENV{'COMPUTERNAME'}||'localhost');
         while (@addr)