extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-20 09:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Simplify push_action_params()"

Browse Source 
This reverts commit 34c788d67d8991fccdb4fe0845b008a64af99e31.
This commit is contained in:
Tom Eastep 2011-07-01 16:34:55 -07:00
parent 7ffcca4cbd
commit 7cc2f91e66
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1803,11 +1803,14 @@ sub embedded_perl( $ ) {
sub push_action_params( $ ) { sub push_action_params( $ ) {
my @params = split /,/, $_[0]; my @params = split /,/, $_[0];
my $oldparams = \@actparms; my $oldparams = \@actparms;
my $params = @params;
@actparms = (); @actparms = ();
@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;
} }