diff options
Diffstat (limited to 'apps/plugins/lua/action_helper.pl')
-rwxr-xr-x | apps/plugins/lua/action_helper.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/apps/plugins/lua/action_helper.pl b/apps/plugins/lua/action_helper.pl index eb66c2b01e..f225952bf9 100755 --- a/apps/plugins/lua/action_helper.pl +++ b/apps/plugins/lua/action_helper.pl | |||
@@ -28,6 +28,12 @@ while(my $line = <STDIN>) | |||
28 | $actions[$i] = sprintf("\t%s = %d,\n", $1, $i); | 28 | $actions[$i] = sprintf("\t%s = %d,\n", $1, $i); |
29 | $i++; | 29 | $i++; |
30 | } | 30 | } |
31 | elsif($line =~ /^\s*(PLA_[^\s]+)(\s*=.*)?,\s*$/) | ||
32 | { | ||
33 | # PLA_* begins at LAST_ACTION_PLACEHOLDER+1, thus i+1 | ||
34 | $actions[$i] = sprintf("\t%s = %d,\n", $1, $i+1); | ||
35 | $i++; | ||
36 | } | ||
31 | elsif($line =~ /^\s*(CONTEXT_[^\s]+)(\s*=.*)?,\s*$/) | 37 | elsif($line =~ /^\s*(CONTEXT_[^\s]+)(\s*=.*)?,\s*$/) |
32 | { | 38 | { |
33 | $contexts[$j] = sprintf("\t%s = %d,\n", $1, $j); | 39 | $contexts[$j] = sprintf("\t%s = %d,\n", $1, $j); |