diff options
| author | Graham Barr <gbarr@pobox.com> | 2001-11-20 19:24:48 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2001-11-20 19:24:48 +0000 |
| commit | bb8c851e36e7d80479124e7b8af33216644a8d5c (patch) | |
| tree | 10f48a9bc88d92c3bedb55ceb07b17d309d604c2 | |
| parent | fc77bc00adb13d8ca5c7019cd24094a5c265eafb (diff) | |
| download | perl-libnet-bb8c851e36e7d80479124e7b8af33216644a8d5c.tar.gz | |
Net::Domain
- Fix bug causing $_ to be modified
| -rw-r--r-- | Net/Domain.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Net/Domain.pm b/Net/Domain.pm index 62b9d96..b79ec8f 100644 --- a/Net/Domain.pm +++ b/Net/Domain.pm @@ -16,7 +16,7 @@ use Net::Config; @ISA = qw(Exporter); @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -$VERSION = "2.16"; # $Id: //depot/libnet/Net/Domain.pm#18 $ +$VERSION = "2.17"; # $Id: //depot/libnet/Net/Domain.pm#19 $ my($host,$domain,$fqdn) = (undef,undef,undef); @@ -127,6 +127,7 @@ sub _hostdomain { # those on dialup systems. local *RES; + local($_); if(open(RES,"/etc/resolv.conf")) { while(<RES>) { @@ -143,7 +144,6 @@ sub _hostdomain { my $host = _hostname(); my(@hosts); - local($_); @hosts = ($host,"localhost"); @@ -331,6 +331,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/Domain.pm#18 $> +I<$Id: //depot/libnet/Net/Domain.pm#19 $> =cut |