Change 23339 by davem@no-spam on 2004/09/28 18:05:52
the improved -DT output of #23325 could print an uninit stack value
Affected files ...
... //depot/perl/toke.c#504 edit
Differences ...
==== //depot/perl/toke.c#504 (text) ====
Index: perl/toke.c
--- perl/toke.c#503~23336~ Tue Sep 28 01:08:24 2004
+++ perl/toke.c Tue Sep 28 11:05:52 2004
@@no-spam -2303,7 +2303,7 @@no-spam
int
Perl_yylex(pTHX)
{
- register char *s;
+ register char *s = PL_bufptr;
register char *d;
register I32 tmp;
STRLEN len;
End of Patch.