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 work on early Perls
authorKarl Williamson <khw@cpan.org>
Tue, 10 Mar 2015 20:53:21 +0000 (14:53 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Mar 2015 16:53:11 +0000 (10:53 -0600)
In commit 571d5cf7467f1af9ff1e6d751f49ac47e4f88380, I forgot that this
is dual-lifed and may be used on early Perls.  This commit allows that,
but it will fail if such a Perl were to be used on an EBCDIC platform.

dist/Storable/t/utf8.t

index dfb43ea..a8dd6cd 100644 (file)
@@ -32,8 +32,10 @@ is($x, ${thaw freeze \$x});
 $x = join '', map {chr $_} (0..1023);
 is($x, ${thaw freeze \$x});
 
-# Char in the range 127-255 (probably) in utf8
-$x = chr(utf8::unicode_to_native(175)) . chr (256);
+# Char in the range 127-255 (probably) in utf8.  This just won't work for
+# EBCDIC for early Perls.
+$x = ($] lt 5.007_003) ? chr(175) : chr(utf8::unicode_to_native(175))
+   . chr (256);
 chop $x;
 is($x, ${thaw freeze \$x});