extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-19 21:01:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Simplify push_action_params()"

Browse Source 
This reverts commit 89ee25dde2.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-07-01 16:23:39 -07:00
parent 8ab45b4de3
commit c309ca3075
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1803,12 +1803,16 @@ sub embedded_perl( $ ) {
sub push_action_params( $$ ) { sub push_action_params( $$ ) {
my @params = split /,/, $_[1]; my @params = split /,/, $_[1];
my $oldparams = \@actparms; my $oldparams = \@actparms;
my $params = @params;
@actparms = (); @actparms = ();
$actparms[0] = $_[0]; $actparms[0] = $_[0];
@actparms[1..$params] = @params;
for ( my $i = 1; $i <= @params; $i++ ) {
my $val = $params[$i - 1];
$actparms[$i] = $val eq '-' ? '' : $val eq '--' ? '-' : $val;
}
$oldparams; $oldparams;
} }