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