X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7803ad2d39fc24ecebdd1dbd73e6cc70ab1af094..94a62bdc607e089f45e0365ef77195bd406ccb91:/ext/XS-APItest/t/handy.t

diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t
index ef7ace9..d68f9d9 100644
--- a/ext/XS-APItest/t/handy.t
+++ b/ext/XS-APItest/t/handy.t
@@ -115,7 +115,7 @@ foreach my $name (sort keys %properties) {
 
         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