Fix evaluation with ActiveState Perl 5.6. Somehow it tried to treat nameEntries as array.

git-svn-id: http://svn.webkit.org/repository/webkit/trunk@24704 268f45cc-cd09-0410-ab3c-d52691b4dbfc

WebCore/ChangeLog

+2007-07-27  Simon Hausmann  <hausmann@kde.org>
+
+        Done with and reviewed by Lars and Zack.
+
+        Fix evaluation with ActiveState Perl 5.6. Somehow it tried to treat nameEntries as array.
+
+        * bindings/scripts/CodeGeneratorJS.pm:
+
 2007-07-27  Simon Hausmann  <hausmann@kde.org>
         Done with and reviewed by Lars and Zack.

WebCore/bindings/scripts/CodeGeneratorJS.pm

@@ -1569,7 +1569,7 @@ sub GenerateHashTable
             push(@implContent, ", ");
 
             if (defined($links[$i])) {
-                push(@implContent, "&${nameEntries}[$links[$i]]" . " \}");
+                push(@implContent, "&" . $nameEntries . "[$links[$i]]" . " \}");
             } else {
                 push(@implContent, "0 \}");
             }