Fix split_list1()

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@9542 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2009-02-26 16:53:33 +00:00
parent 08ba35ca29
commit d1bbc2e820
3 changed files with 10 additions and 1 deletions

View File

@ -1174,7 +1174,11 @@ sub split_list1( $$ ) {
for ( @list1 ) {
if ( /\(/ ) {
fatal_error "Invalid $type list ($list)" if $element;
$element = $_;
if ( /\)/ ) {
push @list2 , $_;
} else {
$element = $_;
}
} elsif ( /\)$/ ) {
fatal_error "Invalid $type list ($list)" unless $element;
push @list2, join ',', $element, $_;

View File

@ -4,6 +4,8 @@ Changes in Shorewall 4.3.6
2) Make 'dump' display the raw table. Fix shorewall6 dump anomalies.
3) Fix split_list1()
Changes in Shorewall 4.3.5
1) Remove support for shorewall-shell.

View File

@ -33,6 +33,9 @@ Problems corrected in 4.3.6
To your /etc/shorewall*/started, /etc/shorewall*/stopped and
/etc/shorewall*/restored files.
3) If nets=(<single address>) was specified in
/etc/shorewall/interfaces then the specification was ignored.
Known Problems Remaiining:
None.