diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-01-14 19:19:22 -0700 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-05-29 10:40:18 -0500 |
| commit | c2dc4c7d5e51c6211637044820c7a560da7e6268 (patch) | |
| tree | 830a73c1e9fc2000cb606b8fc78f8a1425b2f4e5 | |
| parent | 35db910f236b637e47a514ee62ca3e5a98169ddd (diff) | |
| download | perl-c2dc4c7d5e51c6211637044820c7a560da7e6268.tar.gz | |
Display characters as Unicode for clarity
| -rw-r--r-- | t/re/pat_special_cc.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/re/pat_special_cc.t b/t/re/pat_special_cc.t index 1138cbb7f7..36116b857b 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; |