In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7b301413cce02b9a948a0e223b4f6a6c0112f1c1?hp=405fd67ea799e305822e4c34efb193e8866f623f>
- Log ----------------------------------------------------------------- commit 7b301413cce02b9a948a0e223b4f6a6c0112f1c1 Author: Father Chrysostomos <[email protected]> Date: Fri Sep 24 12:28:36 2010 -0700 Modify a utf8.t test in anticipation of a fix for [perl #74022] In anticipation of a fix for [perl #74022], this patch corrects the test for q·foo· in utf8.t to use ¡ instead of ·. Iâve also moved the test outside of the eval, so it will still run (and fail) if the com- pilation fails, instead of causing an invalid test count. ----------------------------------------------------------------------- Summary of changes: lib/utf8.t | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/utf8.t b/lib/utf8.t index 0bd06f9..c13211e 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -329,8 +329,9 @@ END SKIP: { skip("Embedded UTF-8 does not work in EBCDIC", 1) if ord("A") == 193; use utf8; - eval qq{is(q \xc3\xbc test \xc3\xbc, qq\xc2\xb7 test \xc2\xb7, - "utf8 quote delimiters [perl #16823]");}; + is eval qq{q \xc3\xbc test \xc3\xbc . qq\xc2\xa1 test \xc2\xa1}, + ' test test ', + "utf8 quote delimiters [perl #16823]"; } # Test the "internals". -- Perl5 Master Repository
