Whoops, attempted to modify current $action in loop

This commit is contained in:
Pragmatic Software 2017-08-01 21:31:58 -07:00
parent 06eb50736d
commit 121de07ae2
1 changed files with 2 additions and 1 deletions

View File

@ -431,7 +431,8 @@ sub expand_action_arguments {
$input =~ s/'/\\'/g if defined $input;
my @args = shellwords($input);
while ($action =~ m/\$arg\[([^]]+)]/g) {
my $const_action = $action;
while ($const_action =~ m/\$arg\[([^]]+)]/g) {
my $arg = $1;
if ($arg eq '*') {