lib/diagnostics.pm: Generalize for EBCDIC

Perl · Jul 25, 2021 · a088f06 · a088f06
1 parent 010b61f
commit a088f06
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
@@ -186,7 +186,7 @@ use 5.009001;
 use Carp;
 $Carp::Internal{__PACKAGE__.""}++;
 
-our $VERSION = '1.37';
+our $VERSION = '1.38';
 our $DEBUG;
 our $VERBOSE;
 our $PRETTY;
@@ -281,7 +281,8 @@ if (eof(POD_DIAG)) {
     'sol'	=>	'/',	#   Forward slash / solidus
     'verbar'    =>	'|',	#   vertical bar
 
-    "Aacute"	=>	"\xC1"	#   capital A, acute accent
+    #                           #   capital A, acute accent
+    "Aacute"	=>	chr utf8::unicode_to_native(0xC1)
 
     # etc
 );