[interchange] * Fix bug where only one address was possible for DebugHost. Now

Mike Heins interchange-cvs at icdevgroup.org
Sun Jun 5 16:12:07 UTC 2016


commit dfd8dcdbf7ff8c9450baf9bd91fcd76ec9208191
Author: Mike Heins <mike at perusion.com>
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;
 }



More information about the interchange-cvs mailing list