diff options
| author | Karl Williamson <khw@cpan.org> | 2021-07-08 17:16:01 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-07-25 09:50:39 -0600 |
| commit | a088f06523f85202c13e6fc78766f7a983d9a94d (patch) | |
| tree | 32bd5373c58a0874f731952ea11fa03209bf1cba /lib | |
| parent | 010b61fd64de2c4d3803b3cc95189331c9b48de0 (diff) | |
| download | perl-a088f06523f85202c13e6fc78766f7a983d9a94d.tar.gz | |
lib/diagnostics.pm: Generalize for EBCDIC
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/diagnostics.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index a9de570ada..3889ee08bc 100644 --- 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 ); |