diff options
Diffstat (limited to 'apps/plugins/lua/action_helper.pl')
-rwxr-xr-x | apps/plugins/lua/action_helper.pl | 8 |
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 | |||
23 | open(ACTION, "<$input") or die "Can't open $input!"; | ||
24 | |||
25 | $i = 0; | 21 | $i = 0; |
26 | $j = 0; | 22 | $j = 0; |
27 | while(my $line = <ACTION>) | 23 | while(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 | ||
42 | close(ACTION); | ||
43 | |||
44 | print "-- Don't change this file!\n"; | 38 | print "-- Don't change this file!\n"; |
45 | printf "-- It is automatically generated of action.h %s\n", '$Revision$'; | 39 | printf "-- It is automatically generated of action.h %s\n", '$Revision$'; |
46 | 40 | ||