In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/aeb72ccb42732a816ef2710b4141236752cc535f?hp=af2cbe4d708ae0a2738f5945914a60d7dda5a01a>
- Log -----------------------------------------------------------------
commit aeb72ccb42732a816ef2710b4141236752cc535f
Author: Karl Williamson <k...@cpan.org>
Date: Mon Aug 8 15:11:03 2016 -0600
Add test for [perl #126606]
-----------------------------------------------------------------------
Summary of changes:
t/re/pat.t | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/t/re/pat.t b/t/re/pat.t
index 98cdbe3..0f5a3e4 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -23,7 +23,7 @@ BEGIN {
skip_all_without_unicode_tables();
}
-plan tests => 798; # Update this when adding/deleting tests.
+plan tests => 799; # Update this when adding/deleting tests.
run_tests() unless caller;
@@ -1791,6 +1791,11 @@ EOP
ok($AE =~ $re, '/[\xE6\s]/i matches \xC6 when in UTF-8');
}
+ { # [perl #126606 crashed the interpreter
+ no warnings 'deprecated';
+ like("sS", qr/\N{}Ss|/i, "\N{} with empty branch alternation
works");
+ }
+
} # End of sub run_tests
1;
--
Perl5 Master Repository
