summaryrefslogtreecommitdiff
path: root/apps/plugins/lua/action_helper.pl
diff options
context:
space:
mode:
Diffstat (limited to 'apps/plugins/lua/action_helper.pl')
-rwxr-xr-xapps/plugins/lua/action_helper.pl8
1 files changed, 1 insertions, 7 deletions
diff --git a/apps/plugins/lua/action_helper.pl b/apps/plugins/lua/action_helper.pl
index b681951588..eb66c2b01e 100755
--- a/apps/plugins/lua/action_helper.pl
+++ b/apps/plugins/lua/action_helper.pl
@@ -18,13 +18,9 @@
18# 18#
19############################################################################ 19############################################################################
20 20
21$input = $ARGV[0] . "/../../action.h";
22
23open(ACTION, "<$input") or die "Can't open $input!";
24
25$i = 0; 21$i = 0;
26$j = 0; 22$j = 0;
27while(my $line = <ACTION>) 23while(my $line = <STDIN>)
28{ 24{
29 chomp($line); 25 chomp($line);
30 if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,\s*$/) 26 if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,\s*$/)
@@ -39,8 +35,6 @@ while(my $line = <ACTION>)
39 } 35 }
40} 36}
41 37
42close(ACTION);
43
44print "-- Don't change this file!\n"; 38print "-- Don't change this file!\n";
45printf "-- It is automatically generated of action.h %s\n", '$Revision$'; 39printf "-- It is automatically generated of action.h %s\n", '$Revision$';
46 40