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 /regcomp.c | |
| 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 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -3661,7 +3661,8 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state) } RExC_parse = e + 1; ANYOF_FLAGS(ret) |= ANYOF_UNICODE; - continue; + namedclass = ANYOF_MAX; /* no official name, but it's named */ + break; case 'n': value = '\n'; break; case 'r': value = '\r'; break; case 't': value = '\t'; break; @@ -4066,6 +4067,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state) } Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsXDigit\n"); break; + case ANYOF_MAX: + /* this is to handle \p and \P */ + break; default: vFAIL("Invalid [::] class"); break; |