Fix ancient bug in old parameter syntax

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2015-05-29 14:39:48 -07:00
parent cfc6b7405f
commit 29a0c92918

View File

@ -8735,7 +8735,7 @@ sub get_inline_matches( $ ) {
# Split the passed target into the basic target and parameter
#
sub get_target_param( $ ) {
my ( $target, $param ) = split '/', $_[0];
my ( $target, $param ) = split '/', $_[0], 2;
unless ( defined $param ) {
( $target, $param ) = ( $1, $2 ) if $target =~ /^(.*?)[(](.*)[)]$/;