[interchange] * Fix bug where only one address was possible for DebugHost. Now
Mike Heins <[email protected]> Sun, 05 Jun 2016 16:12:07 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit dfd8dcdbf7ff8c9450baf9bd91fcd76ec9208191 Author: Mike Heins <[email protected]> Date: Sun Jun 5 16:11:35 2016 +0000 * Fix bug where only one address was possible for DebugHost. Now accepts a range of IP addresses. lib/Vend/Config.pm | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) --- diff --git a/lib/Vend/Config.pm b/lib/Vend/Config.pm index 5d29384..7b1e6a8 100644 --- a/lib/Vend/Config.pm +++ b/lib/Vend/Config.pm @@ -3907,12 +3907,14 @@ sub parse_ip_address_regexp { my ($var, $value) = @_; return '' unless $value; + my @atoms = split /[\s,\0]/, $value; + eval { require Net::IP::Match::Regexp; }; $@ and config_error("$var directive requires module: $@"); - my $re = Net::IP::Match::Regexp::create_iprange_regexp($value) + my $re = Net::IP::Match::Regexp::create_iprange_regexp(@atoms) or config_error("Improper IP address range for $var"); return $re; }