diff options
Diffstat (limited to 'ext/re/t/reflags.t')
| -rw-r--r-- | ext/re/t/reflags.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/re/t/reflags.t b/ext/re/t/reflags.t index b2cbf80d38..e90a712740 100644 --- a/ext/re/t/reflags.t +++ b/ext/re/t/reflags.t @@ -10,7 +10,7 @@ BEGIN { use strict; -use Test::More tests => 62; +use Test::More tests => 63; my @flags = qw( a d l u ); @@ -165,9 +165,13 @@ is qr//, '(?^:)', 'no re "/aai"'; } $w = ""; - eval "use re '/axaa'"; + eval "use re '/amaa'"; like $w, qr/The "a" flag may only appear a maximum of twice/, - "warning with eval \"use re \"/axaa\""; + "warning with eval \"use re \"/amaa\""; + $w = ""; + eval "use re '/xamax'"; + like $w, qr/Having more than one \/x regexp modifier is deprecated/, + "warning with eval \"use re \"/xamax\""; } |