You know, I'm not sure this code has been through a comprehensive test
suite.
Signed-off-by: Mark Wooding <mdw@distorted.org.uk>
my $net = $hn->network() or die;
maybe_allow_addrs 'Local', $host;
maybe_allow_addrs 'Remote', $net;
my $net = $hn->network() or die;
maybe_allow_addrs 'Local', $host;
maybe_allow_addrs 'Remote', $net;
- } elsif (s{^(local|remote|addrs)\s+(\S+)\ s+}{}) {
+ } elsif (s{^(local|remote|addrs)\s+(\S+)\s+}{}) {
my $h = $1;
my $s = new NetAddr::IP::Lite $2 or
badcfg "invalid ip address or mask in $h";
my $h = $1;
my $s = new NetAddr::IP::Lite $2 or
badcfg "invalid ip address or mask in $h";