[perl #123961] handle a missing closing ` for -DT output

1 files changed, 7 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 205b00b3f4..4a53f2f75c 100644
--- a/toke.c
+++ b/toke.c
@@ -6310,7 +6310,13 @@ Perl_yylex(pTHX)
 
     case '`':
 	s = scan_str(s,FALSE,FALSE,FALSE,NULL);
-	DEBUG_T( { printbuf("### Saw backtick string before %s\n", s); } );
+	DEBUG_T( {
+            if (s)
+                printbuf("### Saw backtick string before %s\n", s);
+            else
+		PerlIO_printf(Perl_debug_log,
+			     "### Saw unterminated backtick string\n");
+        } );
 	if (PL_expect == XOPERATOR)
 	    no_op("Backticks",s);
 	if (!s)