diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 13:16:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 13:16:26 +0000 |
| commit | 058e53a4638aa7eba382b3df4f4f6fa0ecfb7013 (patch) | |
| tree | 9e18e451ad5d1c45e1d05e02467fca7d93782402 | |
| parent | 4cbec17f6950a6e0e6a10b1b7cac1c15654f4678 (diff) | |
| download | perl-058e53a4638aa7eba382b3df4f4f6fa0ecfb7013.tar.gz | |
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
| -rw-r--r-- | lib/Net/Domain.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/Domain.pm b/lib/Net/Domain.pm index c1b0140ee2..189bb73ff5 100644 --- 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) |