Skip to content
This repository was archived by the owner on Jun 1, 2023. It is now read-only.

Commit 70defe2

Browse files
author
Reini Urban
committed
Data-Dumper: fix high isASCII for EBCDIC
Fixes https://rt.cpan.org/Ticket/Display.html?id=12282 which is now on CPAN as 2.161, but without the indent fix, so bump to 2.162.
1 parent 7b2aae7 commit 70defe2

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

dist/Data-Dumper/Dumper.pm

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
package Data::Dumper;
1111

1212
BEGIN {
13-
$VERSION = '2.161'; # Don't forget to set version and release
13+
$VERSION = '2.162'; # Don't forget to set version and release
1414
} # date in POD below!
1515

1616
#$| = 1;
@@ -1466,13 +1466,13 @@ be to use the C<Sortkeys> filter of Data::Dumper.
14661466
14671467
Gurusamy Sarathy gsar@activestate.com
14681468
1469-
Copyright (c) 1996-2014 Gurusamy Sarathy. All rights reserved.
1469+
Copyright (c) 1996-2016 Gurusamy Sarathy. All rights reserved.
14701470
This program is free software; you can redistribute it and/or
14711471
modify it under the same terms as Perl itself.
14721472
14731473
=head1 VERSION
14741474
1475-
Version 2.161 (with cperl-5.24.0, not yet on CPAN)
1475+
Version 2.162 (with cperl-5.24.0, not yet on CPAN)
14761476
14771477
=head1 SEE ALSO
14781478

dist/Data-Dumper/Dumper.xs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -369,7 +369,7 @@ esc_q_utf8(pTHX_ SV* sv, const char *src, STRLEN slen, I32 do_utf8, I32 useqq)
369369
UV k;
370370

371371
if (do_utf8
372-
&& ! isASCII(*s)
372+
&& ! isASCII(*(U8*)s)
373373
/* Exclude non-ASCII low ordinal controls. This should be
374374
* optimized out by the compiler on ASCII platforms; if not
375375
* could wrap it in a #ifdef EBCDIC, but better to avoid

0 commit comments

Comments
 (0)