ansiperl builds with Borland C++ again

p4raw-id: //depot/ansiperl@280

1 files changed, 5 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index f10c39fada..95be7df498 100644
--- a/toke.c
+++ b/toke.c
@@ -1230,6 +1230,8 @@ yylex(void)
     register char *d;
     register I32 tmp;
     STRLEN len;
+    GV *gv = Nullgv;
+    GV **gvp = 0;
 
     if (pending_ident) {
 	char pit = pending_ident;
@@ -2545,8 +2547,8 @@ yylex(void)
     case 'z': case 'Z':
 
       keylookup: {
-	GV *gv = Nullgv;
-	GV **gvp = 0;
+	gv = Nullgv;
+	gvp = 0;
 
 	bufptr = s;
 	s = scan_word(s, tokenbuf, sizeof tokenbuf, FALSE, &len);
@@ -5381,3 +5383,4 @@ yyerror(char *s)
     return 0;
 }
 
+