summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>1999-05-02 18:59:24 +0100
committerGurusamy Sarathy <gsar@cpan.org>1999-05-09 00:33:50 +0000
commit69d2bceb2ed87c2e5bcbc3050c1143a1fc72474b (patch)
tree5d61f27ab83c4d10fca2e4a9eb1a87621b910cad /toke.c
parent7d74db03f1398d522128bfcb8a1ea0b26547d290 (diff)
downloadperl-69d2bceb2ed87c2e5bcbc3050c1143a1fc72474b.tar.gz
Re: ptr to realloced memory in yylex
Message-Id: <199905021659.RAA14016@crypt.compulink.co.uk> p4raw-id: //depot/perl@3339
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index e77648591d..709db636d1 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;