From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 28 Sep 2004 18:05:52 +0000 (+0000)
Subject: the improved -DT output of #23325 could print an uninit stack value
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3afc138ae8d937f9bbca45350859ec2c8429f730;p=p5sagit%2Fp5-mst-13.2.git

the improved -DT output of #23325 could print an uninit stack value

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

diff --git a/toke.c b/toke.c
index 91545e4..aee151c 100644
--- 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;