diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-04-01 22:28:43 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-09 15:19:57 -0600 |
| commit | 81d8a24707e5e29312efe194299c42f93cebed52 (patch) | |
| tree | b982412045c6ce18e1ca984af25e070c423727e8 /dist/Storable | |
| parent | 9e0b0d62ba5a660ab4b6f498912cfaead79014a0 (diff) | |
| download | perl-81d8a24707e5e29312efe194299c42f93cebed52.tar.gz | |
dist/Storable/t/utf8.t: Fix to run under EBCDIC
Diffstat (limited to 'dist/Storable')
| -rw-r--r-- | dist/Storable/t/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Storable/t/utf8.t b/dist/Storable/t/utf8.t index fd20ef6caa..dfb43eaa12 100644 --- a/dist/Storable/t/utf8.t +++ b/dist/Storable/t/utf8.t @@ -33,7 +33,7 @@ $x = join '', map {chr $_} (0..1023); is($x, ${thaw freeze \$x}); # Char in the range 127-255 (probably) in utf8 -$x = chr (175) . chr (256); +$x = chr(utf8::unicode_to_native(175)) . chr (256); chop $x; is($x, ${thaw freeze \$x}); |