Fix build error in perl script

[capablanca.git] / lasker-2.2.3 / src / parsers / genstruct.pl

diff --git a/lasker-2.2.3/src/parsers/genstruct.pl b/lasker-2.2.3/src/parsers/genstruct.pl
index 160ea1f..b86f51a 100755 (executable)
--- 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;