This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
the improved -DT output of #23325 could print an uninit stack value
authorDave Mitchell <davem@fdisolutions.com>
Tue, 28 Sep 2004 18:05:52 +0000 (18:05 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Tue, 28 Sep 2004 18:05:52 +0000 (18:05 +0000)
p4raw-id: //depot/perl@23339

toke.c

diff --git a/toke.c b/toke.c
index 91545e4..aee151c 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2303,7 +2303,7 @@ S_find_in_my_stash(pTHX_ char *pkgname, I32 len)
 int
 Perl_yylex(pTHX)
 {
-    register char *s;
+    register char *s = PL_bufptr;
     register char *d;
     register I32 tmp;
     STRLEN len;