diff options
| author | John D Groenveld <groenvel@cse.psu.edu> | 1997-05-06 13:41:12 -0400 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-05-08 00:00:00 +1200 |
| commit | bfd13ef816abf16369321d26f2f63772eff5cd21 (patch) | |
| tree | 177cde1735bce91951e98e47f5df81f65b40328b | |
| parent | 7beaa944e7028109fa98a93b80adb33f30aaf43a (diff) | |
| download | perl-bfd13ef816abf16369321d26f2f63772eff5cd21.tar.gz | |
perlfaq9, hostname
Simple patch...
p5p-msgid: 199705061741.NAA22777@cse.psu.edu
| -rw-r--r-- | pod/perlfaq9.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index f4f4759ba5..d7faca02e3 100644 --- a/pod/perlfaq9.pod +++ b/pod/perlfaq9.pod @@ -295,7 +295,7 @@ give you the hostname after which you can find out the IP address use Socket; use Sys::Hostname; my $host = hostname(); - my $addr = inet_ntoa(scalar(gethostbyname($name)) || 'localhost'); + my $addr = inet_ntoa(scalar(gethostbyname($host || 'localhost'))); Probably the simplest way to learn your DNS domain name is to grok it out of /etc/resolv.conf, at least under Unix. Of course, this |