diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index d8b6cd099..664b0da3a 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -1803,14 +1803,11 @@ sub embedded_perl( $ ) {
 sub push_action_params( $ ) {
     my @params = split /,/, $_[0];
     my $oldparams = \@actparms;
+    my $params    = @params;
 
     @actparms = ();
 
-    for ( my $i = 1; $i <= @params; $i++ ) {
-	my $val = $params[$i - 1];
-
-	$actparms[$i] = $val eq '-' ? '' : $val eq '--' ? '-' : $val;
-    }
+    @actparms[1..$params] = @params;
 
     $oldparams;
 }