From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Oct 2001 21:00:18 +0000 (+0000)
Subject: No domainname(1) in Cygwin, either, and the 2>/dev/null
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72813c7e572b646ceb799ec93787340c2b49bc55;p=p5sagit%2Fp5-mst-13.2.git

No domainname(1) in Cygwin, either, and the 2>/dev/null
doesn't seem to help (the error being output to console, maybe?)

p4raw-id: //depot/perl@12592
---

diff --git a/lib/Net/Domain.pm b/lib/Net/Domain.pm
index bd57996..a47933d 100644
--- a/lib/Net/Domain.pm
+++ b/lib/Net/Domain.pm
@@ -165,7 +165,7 @@ sub _hostdomain {
         };
 
 	chop($dom = `domainname 2>/dev/null`)
-		unless(defined $dom || $^O eq 'MSWin32');
+		unless(defined $dom || $^O =~ /^(MSWin32|cygwin)$/);
 
 	if(defined $dom) {
 	    my @h = ();