X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fre%2Fpat_special_cc.t;h=36116b857bba22cc4a34c4045e47721517439aea;hb=c2dc4c7d5e51c6211637044820c7a560da7e6268;hp=1138cbb7f728f336864dcf640a8aa12c8595c9e0;hpb=35db910f236b637e47a514ee62ca3e5a98169ddd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/re/pat_special_cc.t b/t/re/pat_special_cc.t
index 1138cbb..36116b8 100644
--- a/t/re/pat_special_cc.t
+++ b/t/re/pat_special_cc.t
@@ -37,6 +37,7 @@ sub run_tests {
         my @plain_complement_failed;
         for my $ord (0 .. $upper_bound) {
             my $ch= chr $ord;
+            my $ord = sprintf "U+%04X", $ord;  # For display in Unicode terms
             my $plain= $ch=~/$special/ ? 1 : 0;
             my $plain_u= $ch=~/$upper/ ? 1 : 0;
             push @plain_complement_failed, "$ord-$plain-$plain_u" if $plain == $plain_u;