Change 12592 by jhi@alpha on 2001/10/22 21:00:18
No domainname(1) in Cygwin, either, and the 2>/dev/null
doesn't seem to help (the error being output to console, maybe?)
Affected files ...
... //depot/perl/lib/Net/Domain.pm#6 edit
Differences ...
==== //depot/perl/lib/Net/Domain.pm#6 (text) ====
Index: perl/lib/Net/Domain.pm
--- perl/lib/Net/Domain.pm.~1~ Mon Oct 22 15:15:05 2001
+++ perl/lib/Net/Domain.pm Mon Oct 22 15:15:05 2001
@@ -165,7 +165,7 @@
};
chop($dom = `domainname 2>/dev/null`)
- unless(defined $dom || $^O eq 'MSWin32');
+ unless(defined $dom || $^O =~ /^(MSWin32|cygwin)$/);
if(defined $dom) {
my @h = ();
End of Patch.
