diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 22:09:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 22:09:20 +0000 |
| commit | 9e55ce066d52428ee12b0c4df544c9a64f88c082 (patch) | |
| tree | 52abfa57613cd9fbb4312fee9271e6b668819233 /t/op/pat.t | |
| parent | c7bdadfda7603b18f6db06d8065ed2a479a95e76 (diff) | |
| download | perl-9e55ce066d52428ee12b0c4df544c9a64f88c082.tar.gz | |
Finish up (ha!) the Unicode case folding;
enhance regex dumping code.
p4raw-id: //depot/perl@14096
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index bc2ed375ab..a504186332 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2602,7 +2602,8 @@ print "# some Unicode properties\n"; print "SS" =~ /\N{LATIN SMALL LETTER SHARP S}/i ? "ok 840\n" : "not ok 840\n"; -# Fix coming up. +# These are a bit tricky. Since the LATIN SMALL LETTER SHARP S is U+00DF, +# the ANYOF reduces to a byte. The Unicodeness needs to be caught earlier. # print "ss" =~ # /[\N{LATIN SMALL LETTER SHARP S}]/i ? "ok 841\n" : "not ok 841\n"; # |