In perl.git, the branch smoke-me/khw-kid51 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1f3d9c6b7bd9e72652c2a8e8c98f65ea1df01f6e?hp=0d87c6cef3e5e707ffb605eee435b28533f33f60>
- Log ----------------------------------------------------------------- commit 1f3d9c6b7bd9e72652c2a8e8c98f65ea1df01f6e Author: James E Keenan <[email protected]> Date: Wed Nov 9 20:56:15 2016 -0500 RT 130010: add regression test. ----------------------------------------------------------------------- Summary of changes: t/re/pat_advanced.t | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index 5eb2cc5..08f4f53 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -2433,6 +2433,15 @@ EOF 'No segfault [perl #126886]'); } + { + # [perl 130010] Downstream application texinfo started to report panics + # as of commit a5540cf. + + runperl( prog => 'A::xx(); package A; sub InFullwidth{ return qq|\n| } sub xx { split /[^\s\p{InFullwidth}]/, q|x| }' ); + ok(! $?, "User-defined pattern did not cause panic [perl 130010]"); + } + + # !!! NOTE that tests that aren't at all likely to crash perl should go # a ways above, above these last ones. There's a comment there that, like # this comment, contains the word 'NOTE' -- Perl5 Master Repository
