In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f4b6841fd0c905f3a35c8233786352f253b00ba2?hp=3d860744f242683742ba97ad753bc8a1ee061dac>
- Log -----------------------------------------------------------------
commit f4b6841fd0c905f3a35c8233786352f253b00ba2
Author: Karl Williamson <k...@cpan.org>
Date: Thu Mar 10 12:10:38 2016 -0700
t/re/reg_mesg.t: Add some more tests
-----------------------------------------------------------------------
Summary of changes:
t/re/reg_mesg.t | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
index 2d7bd85..f08c708 100644
--- a/t/re/reg_mesg.t
+++ b/t/re/reg_mesg.t
@@ -262,6 +262,10 @@ my @death =
'/((?# This is a comment in the middle of a token)?:foo)/' => 'In \'(?...)\',
the \'(\' and \'?\' must be adjacent {#} m/((?# This is a comment in the middle
of a token)?{#}:foo)/',
'/((?# This is a comment in the middle of a token)*FAIL)/' => 'In
\'(*VERB...)\', the \'(\' and \'*\' must be adjacent {#} m/((?# This is a
comment in the middle of a token)*{#}FAIL)/',
'/(?[\ &!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\
&!{#}])/', # [perl #126180]
+ '/(?[\ +!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\
+!{#}])/', # [perl #126180]
+ '/(?[\ -!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\
-!{#}])/', # [perl #126180]
+ '/(?[\ ^!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\
^!{#}])/', # [perl #126180]
+ '/(?[\ |!])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[\
|!{#}])/', # [perl #126180]
'/(?[()-!])/' => 'Incomplete expression within \'(?[ ])\' {#}
m/(?[()-!{#}])/', # [perl #126204]
'/(?[!()])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[!(){#}])/',
# [perl #126404]
);
--
Perl5 Master Repository
