This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_posixcc.t: display chr(\\xXX) should be chr(0xXX)
[perl5.git] / t / re / reg_posixcc.t
index 7473eea..0d66f5b 100644 (file)
@@ -85,7 +85,7 @@ while (@pats) {
     my %complements;
     foreach my $b (0..255) {
         my %got;
-        my $display_b = sprintf("\\x%02X", $b);
+        my $display_b = sprintf("0x%02X", $b);
         for my $type ('utf8','not-utf8') {
             my $str=chr($b).chr($b);
             if ($type eq 'utf8') {