This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS-APItest/t/handy.t: Change output message
authorKarl Williamson <public@khwilliamson.com>
Fri, 15 Mar 2013 17:50:35 +0000 (11:50 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 30 May 2014 01:28:40 +0000 (19:28 -0600)
On EBCDIC platforms, the output is not in terms of \N{U+}; change text
to \x{ }

ext/XS-APItest/t/handy.t

index ef7ace9..d68f9d9 100644 (file)
@@ -115,7 +115,7 @@ foreach my $name (sort keys %properties) {
 
         my $ret;
         my $char_name = charnames::viacode($i) // "No name";
 
         my $ret;
         my $char_name = charnames::viacode($i) // "No name";
-        my $display_name = sprintf "\\N{U+%02X, %s}", $i, $char_name;
+        my $display_name = sprintf "\\x{%02X, %s}", $i, $char_name;
 
         if ($name eq 'quotemeta') { # There is only one macro for this, and is
                                     # defined only for Latin1 range
 
         if ($name eq 'quotemeta') { # There is only one macro for this, and is
                                     # defined only for Latin1 range