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 (file)
--- 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;