do subname() is deprecated, so this test from perl 3 needs updating.

[p5sagit/p5-mst-13.2.git] / t / uni / fold.t

diff --git a/t/uni/fold.t b/t/uni/fold.t
index 789ba67..f6f467c 100644 (file)
--- 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];