perldelta - move split change to other perlfunc changes and add issue link

[perl5.git] / t / uni / fold.t

diff --git a/t/uni/fold.t b/t/uni/fold.t
index a557fe3..bd1dd85 100644 (file)
--- a/t/uni/fold.t
+++ b/t/uni/fold.t
@@ -166,7 +166,8 @@ foreach my $test_ref (@CF) {
         $test = qq[":$c:" =~ /:$every_other_bracketed_f:/iu];
         ok eval $test, "$code - $name - $mapping - $type - $test";
 
-        my $other_every_bracketed_f = "$f_chars[0]\[$f_chars[1]]";
+        my $other_every_bracketed_f = "$f_chars[0]";
+        $other_every_bracketed_f .= "[$f_chars[1]]";
         $other_every_bracketed_f .= "$f_chars[2]" if $f_chars[2];
         $test = qq[":$c:" =~ /:$other_every_bracketed_f:/iu];
         ok eval $test, "$code - $name - $mapping - $type - $test";