re/reg_mesg.t: White-space only; no code changes

[perl5.git] / t / re / reg_fold.t

diff --git a/t/re/reg_fold.t b/t/re/reg_fold.t
index 9b5ef11..9e97ddd 100644 (file)
--- a/t/re/reg_fold.t
+++ b/t/re/reg_fold.t
@@ -76,7 +76,11 @@ for  (@folds) {
                 $lhs = $chr;
                 $rhs = "";
                 foreach my $rhs_char (@folded) {
-                    $rhs .= '[' if $charclass;
+
+                    # The colon is an unrelated character to the rest of the
+                    # class, and makes sure no optimization into an EXACTish
+                    # node occurs.
+                    $rhs .= '[:' if $charclass;
                     $rhs .=  $rhs_char;
                     $rhs .= ']' if $charclass;
                 }