diff options
| author | Graham Barr <gbarr@pobox.com> | 2000-03-10 09:03:09 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2000-03-10 09:03:09 +0000 |
| commit | dd879dc3fe601fe54ca5ffe6e0a557bdce954cd8 (patch) | |
| tree | 74605aad2c2a6bc62263ba1155286b61bb21eaab | |
| parent | 6c2abcbc68cf170c264478b1084ceeae3cb08734 (diff) | |
| download | perl-libnet-dd879dc3fe601fe54ca5ffe6e0a557bdce954cd8.tar.gz | |
Net::Config
- change arg to split to /\./ from "."
| -rw-r--r-- | Net/Config.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Net/Config.pm b/Net/Config.pm index 27f107e..b854f8a 100644 --- a/Net/Config.pm +++ b/Net/Config.pm @@ -6,7 +6,7 @@ use strict; @EXPORT = qw(%NetConfig); @ISA = qw(Net::LocalCfg Exporter); -$VERSION = "1.02"; +$VERSION = "1.03"; eval { local $SIG{__DIE__}; require Net::LocalCfg }; @@ -67,7 +67,7 @@ sub requires_firewall { foreach (@$list) { my($net,$bits) = (m#^(\d+\.\d+\.\d+\.\d+)/(\d+)$#) or next; my $mask = ~0 << (32 - $bits); - my $addr = unpack("N",pack("C*",split(".",$host))); + my $addr = unpack("N",pack("C*",split(/\./,$host))); return 0 if (($addr & $mask) == ($quad & $mask)); } |