From 69a0eda50b3ac7f58081d2fb3f72125d7a19acb1 Mon Sep 17 00:00:00 2001 From: H.G. Muller Date: Tue, 29 Nov 2011 19:18:38 +0100 Subject: [PATCH] Fix build error in perl script --- lasker-2.2.3/src/parsers/genstruct.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lasker-2.2.3/src/parsers/genstruct.pl b/lasker-2.2.3/src/parsers/genstruct.pl index 160ea1f..b86f51a 100755 --- a/lasker-2.2.3/src/parsers/genstruct.pl +++ b/lasker-2.2.3/src/parsers/genstruct.pl @@ -178,7 +178,7 @@ sub parse_enum_elements($$) print OFILE "static const struct enum_struct einfo_" . $name . "[] = {\n"; my(@enums) = split(/,/s, $elements); - for (my($i)=0; $i <= $#{@enums}; $i++) { + for (my($i)=0; $i <= $#enums; $i++) { my($enum) = $enums[$i]; if ($enum =~ /\s*(\w*)/) { my($e) = $1; -- 1.7.0.4