diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Sys/Hostname.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Sys/Hostname.pm b/lib/Sys/Hostname.pm index ec04efc889..92207acb2b 100644 --- a/lib/Sys/Hostname.pm +++ b/lib/Sys/Hostname.pm @@ -60,6 +60,11 @@ sub hostname { Carp::croak "Cannot get host name of local machine"; } + elsif ($^O eq 'MSWin32') { + ($host) = gethostbyname('localhost'); + chomp($host = `hostname 2> NUL`) unless defined $host; + return $host; + } else { # Unix # method 2 - syscall is preferred since it avoids tainting problems |