In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/b99b8a84094a9456f8f9a16cba3ec83f06df6304?hp=3282ee13c09f8fd1009f35571059ec6e8204b2ec>
- Log ----------------------------------------------------------------- commit b99b8a84094a9456f8f9a16cba3ec83f06df6304 Author: Karl Williamson <[email protected]> Date: Tue Mar 12 15:20:29 2019 -0600 t/re/pat_advanced.t: Add some comments ----------------------------------------------------------------------- Summary of changes: t/re/pat_advanced.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index ade8b1587a..2eec50221a 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -907,7 +907,8 @@ sub run_tests { BEGIN { unshift @INC, 'lib'; } - use Cname; + use Cname; # Our custom charname plugin, currently found in + # t/lib/Cname.pm like 'fooB', qr/\N{foo}[\N{B}\N{b}]/, "Passthrough charname"; my $name = "foo\xDF"; @@ -937,6 +938,8 @@ sub run_tests { like $w, qr/Ignoring zero length/, 'Ignoring zero length \N{} in character class warning'; + # EVIL keeps track of its calls, and appends a new character each + # time: A AB ABC ABCD ... ok 'AB' =~ /(\N{EVIL})/ && $1 eq 'A', 'Charname caching $1'; like 'ABC', qr/(\N{EVIL})/, 'Charname caching $1'; like 'xy', qr/x\N{EMPTY-STR}y/, -- Perl5 Master Repository
