diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2004-06-24 12:42:54 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-25 15:07:51 +0000 |
| commit | f81125e29831a3ead69d58ca3d58559654ea06d2 (patch) | |
| tree | e4d5483397759cd032b2ef19c59d4cc61a55bbf1 /t | |
| parent | 996dc718da1f4671fb1ddb6550d03837abe87d27 (diff) | |
| download | perl-f81125e29831a3ead69d58ca3d58559654ea06d2.tar.gz | |
regcomp.c, t/op/regmesg.t -- False range with \p and \P
Message-ID: <Pine.LNX.4.44.0406241636340.8774-200000@perlmonk.org>
p4raw-id: //depot/perl@22995
Diffstat (limited to 't')
| -rw-r--r-- | t/op/regmesg.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/regmesg.t b/t/op/regmesg.t index 05688b4a96..1b613ed351 100644 --- a/t/op/regmesg.t +++ b/t/op/regmesg.t @@ -98,6 +98,8 @@ my @death = 'm/[a-\d]/' => 'False [] range "a-\d" in regex; marked by {#} in m/[a-\d{#}]/', 'm/[\w-x]/' => 'False [] range "\w-" in regex; marked by {#} in m/[\w-{#}x]/', + 'm/[a-\pM]/' => 'False [] range "a-\pM" in regex; marked by {#} in m/[a-\pM{#}]/', + 'm/[\pM-x]/' => 'False [] range "\pM-" in regex; marked by {#} in m/[\pM-{#}x]/', "m'\\y'" => 'Unrecognized escape \y passed through in regex; marked by {#} in m/\y{#}/', ); |