extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-24 11:41:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Slight improvement of regular expression used to insert chain name into rules after '-A'

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2010-06-06 08:04:28 -07:00
parent fdc3b698a9
commit 99a0226a43
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -3535,7 +3535,7 @@ sub emitr( $$ ) {
assert( $chain ); assert( $chain );
if ( $rule ) { if ( $rule ) {
my $replaced = ($rule =~ s/( ?)-A /$1-A $chain /); my $replaced = ($rule =~ s/((^|[ "])?)-A /$1-A $chain /);
if ( substr( $rule, 0, 2 ) eq '-A' ) { if ( substr( $rule, 0, 2 ) eq '-A' ) {
# #