From: H.G. Muller <h.g.muller@hccnet.nl>
Date: Tue, 29 Nov 2011 18:18:38 +0000 (+0100)
Subject: Fix build error in perl script
X-Git-Url: http://winboard.nl/cgi-bin?a=commitdiff_plain;h=69a0eda50b3ac7f58081d2fb3f72125d7a19acb1;p=capablanca.git

Fix build error in perl script
---

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;