diff options
| author | Yves Orton <demerphq@gmail.com> | 2012-09-29 22:55:13 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2012-09-29 22:57:41 +0200 |
| commit | f22151edc9109854921f590da56dc2b5d146d942 (patch) | |
| tree | e709aebd23a7bbaab5195beb3aafa4823f3837ff /regen/regcharclass.pl | |
| parent | 2fb0ecf669dc6bdb4d735473e1a0327ba6a8eff7 (diff) | |
| download | perl-f22151edc9109854921f590da56dc2b5d146d942.tar.gz | |
add a new define for testing perl #115078
We dont have any easy way to test regen/regcharclass.pl currently.
Perl #115078 is related to a bug in the _cleanup() routine which is
fixed with next patch.
Diffstat (limited to 'regen/regcharclass.pl')
| -rwxr-xr-x | regen/regcharclass.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index b22a8a9325..ab3302d063 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -1181,3 +1181,8 @@ UTF8_CHAR: Matches utf8 from 1 to 5 bytes QUOTEMETA: Meta-characters that \Q should quote => high :fast \p{_Perl_Quotemeta} + +FOR_TESTING_DEMO: This is used to test if we generate incorrect code (currently is bad) +=> UTF8 :safe +"\x{3B7}\x{342}" +"\x{3B9}\x{308}\x{301}" |