[perl.git] branch blead, updated. v5.25.3-30-g7f7f7d0

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7f7f7d08ba8aa7c624e75745003d602eca4a2caa?hp=cb6501357462af503ffcfa2608d54a8336e1f244>

- Log -----------------------------------------------------------------
commit 7f7f7d08ba8aa7c624e75745003d602eca4a2caa
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Tue Jul 26 10:06:46 2016 -0700

    Handle missing Unicode heredoc terminators correctly
-----------------------------------------------------------------------

Summary of changes:
 t/lib/croak/toke | 7 +++++++
 toke.c           | 1 +
 2 files changed, 8 insertions(+)

diff --git a/t/lib/croak/toke b/t/lib/croak/toke
index cda6ffd..73b02ca 100644
--- a/t/lib/croak/toke
+++ b/t/lib/croak/toke
@@ -70,6 +70,13 @@ Can't find string terminator "foo" anywhere before EOF at 
(eval 1) line 1.
 EXPECT
 Can't find string terminator "foo" anywhere before EOF at - line 1.
 ########
+# NAME Unterminated here-doc with non-Latin-1 terminator
+BEGIN { binmode STDERR, ":utf8" }
+use utf8;
+<<옷옷
+EXPECT
+Can't find string terminator "옷옷" anywhere before EOF at - line 3.
+########
 # NAME Unterminated qw//
 qw/
 EXPECT
diff --git a/toke.c b/toke.c
index 13d8c3e..19883d6 100644
--- a/toke.c
+++ b/toke.c
@@ -563,6 +563,7 @@ S_missingterm(pTHX_ char *s)
        char * const nl = strrchr(s,'\n');
        if (nl)
            *nl = '\0';
+       uni = UTF;
     }
     else if (PL_multi_close < 32) {
        *tmpbuf = '^';

--
Perl5 Master Repository