This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dist/Storable/t/code.t: Fixes to run under EBCDIC
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 May 2013 03:59:48 +0000 (21:59 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 9 Mar 2015 21:19:57 +0000 (15:19 -0600)
dist/Storable/t/code.t

index c383142..7fc40ba 100644 (file)
@@ -102,7 +102,7 @@ is($thawed->{"b"}->(), "JAPH");
 $freezed = freeze $obj[2];
 $thawed  = thaw $freezed;
 
 $freezed = freeze $obj[2];
 $thawed  = thaw $freezed;
 
-is($thawed->(), 42);
+is($thawed->(), (ord "A") == 193 ? -118 : 42);
 
 ######################################################################
 
 
 ######################################################################