[perl.git] branch blead, updated. v5.23.1-28-g64821df

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/64821df16a716bfc005acb06c7dc5b72afabe38d?hp=5cce15f303ed613cd36c5bc28b7c05aecb464300>

- Log -----------------------------------------------------------------
commit 64821df16a716bfc005acb06c7dc5b72afabe38d
Author: Tony Cook <t...@develop-help.com>
Date:   Thu Jul 23 15:34:43 2015 +1000

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

Summary of changes:
 toke.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/toke.c b/toke.c
index 205b00b..4a53f2f 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)

--
Perl5 Master Repository