This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dist/Storable/t/utf8.t: Fix to run under EBCDIC
[perl5.git] / dist / Storable / t / utf8.t
index fd20ef6..dfb43ea 100644 (file)
@@ -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});