From: Hugo van der Sanden <hv@crypt.org>
Date: Sun, 2 May 1999 17:59:24 +0000 (+0100)
Subject: Re: ptr to realloced memory in yylex
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d2bceb2ed87c2e5bcbc3050c1143a1fc72474b;p=p5sagit%2Fp5-mst-13.2.git

Re: ptr to realloced memory in yylex

	Message-Id: <199905021659.RAA14016@crypt.compulink.co.uk>

p4raw-id: //depot/perl@3339
---

diff --git a/toke.c b/toke.c
index e776485..709db63 100644
--- a/toke.c
+++ b/toke.c
@@ -2723,6 +2723,7 @@ int yylex(PERL_YYLEX_PARAM_DECL)
 	}
 
 	d = s;
+	tmp = (I32)*s;
 	if (PL_lex_state == LEX_NORMAL)
 	    s = skipspace(s);
 
@@ -2764,7 +2765,7 @@ int yylex(PERL_YYLEX_PARAM_DECL)
 	}
 
 	PL_expect = XOPERATOR;
-	if (PL_lex_state == LEX_NORMAL && isSPACE(*d)) {
+	if (PL_lex_state == LEX_NORMAL && isSPACE((char)tmp)) {
 	    bool islop = (PL_last_lop == PL_oldoldbufptr);
 	    if (!islop || PL_last_lop_op == OP_GREPSTART)
 		PL_expect = XOPERATOR;