diff options
author | Graham Barr <gbarr@pobox.com> | 2001-11-20 21:30:02 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2001-11-20 21:30:02 +0000 |
commit | ebfc3d74b854cdb83858024a91277a2f19070ee5 (patch) | |
tree | 69e052da8cf894777bc528004a1fca0edee097af | |
parent | 0773c8193b850758dab07e63ecdd7eab6cc47d9f (diff) | |
download | perl-libnet-ebfc3d74b854cdb83858024a91277a2f19070ee5.tar.gz |
Net::Config
- Dont treat "test_hosts" as an array of host names
-rw-r--r-- | Net/Config.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Net/Config.pm b/Net/Config.pm index 722985c..8a492c1 100644 --- a/Net/Config.pm +++ b/Net/Config.pm @@ -13,7 +13,7 @@ use strict; @EXPORT = qw(%NetConfig); @ISA = qw(Net::LocalCfg Exporter); -$VERSION = "1.09"; # $Id: //depot/libnet/Net/Config.pm#14 $ +$VERSION = "1.09"; # $Id: //depot/libnet/Net/Config.pm#15 $ eval { local $SIG{__DIE__}; require Net::LocalCfg }; @@ -80,7 +80,7 @@ if ($< == $> and !$CONFIGURE) { my ($k,$v); while(($k,$v) = each %NetConfig) { $NetConfig{$k} = [ $v ] - if($k =~ /_hosts$/ && !ref($v)); + if($k =~ /_hosts$/ and $k ne "test_hosts" and defined($v) and !ref($v)); } # Take a hostname and determine if it is inside the firewall @@ -309,6 +309,6 @@ If true then C<Configure> will check each hostname given that it exists =for html <hr> -I<$Id: //depot/libnet/Net/Config.pm#14 $> +I<$Id: //depot/libnet/Net/Config.pm#15 $> =cut |