diff options
| author | Steve Peters <steve@fisharerojo.org> | 2008-12-19 11:38:31 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-12-19 11:38:31 -0600 |
| commit | 2bbc8d558d247c6ef91207a12a4650c0bc292dd6 (patch) | |
| tree | f56c82008dc643d8e799b8e21fb9a3c36b64b3b4 /t | |
| parent | 7df2e4bc09d8ad053532c5f9232b2d713856c938 (diff) | |
| download | perl-2bbc8d558d247c6ef91207a12a4650c0bc292dd6.tar.gz | |
Subject: PATCH 5.10 documentation
From: karl williamson <public@khwilliamson.com>
Date: Tue, 16 Dec 2008 16:00:34 -0700
Message-ID: <49483312.80804@khwilliamson.com>
Diffstat (limited to 't')
| -rw-r--r-- | t/uni/fold.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/uni/fold.t b/t/uni/fold.t index 789ba67029..f6f467cc9c 100644 --- a/t/uni/fold.t +++ b/t/uni/fold.t @@ -15,7 +15,9 @@ if (open(CF, $CF)) { my @CF; while (<CF>) { - # Skip S since we are going for 'F'ull case folding + # Skip S since we are going for 'F'ull case folding. I is obsolete starting + # with Unicode 3.2, but leaving it in does no harm, and allows backward + # compatibility if (/^([0-9A-F]+); ([CFI]); ((?:[0-9A-F]+)(?: [0-9A-F]+)*); \# (.+)/) { next if EBCDIC && hex $1 < 0x100; push @CF, [$1, $2, $3, $4]; |