From 571d5cf7467f1af9ff1e6d751f49ac47e4f88380 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 20 May 2013 21:59:48 -0600 Subject: [PATCH] dist/Storable/t/code.t: Fixes to run under EBCDIC --- dist/Storable/t/code.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/Storable/t/code.t b/dist/Storable/t/code.t index c383142..7fc40ba 100644 --- a/dist/Storable/t/code.t +++ b/dist/Storable/t/code.t @@ -102,7 +102,7 @@ is($thawed->{"b"}->(), "JAPH"); $freezed = freeze $obj[2]; $thawed = thaw $freezed; -is($thawed->(), 42); +is($thawed->(), (ord "A") == 193 ? -118 : 42); ###################################################################### -- 1.8.3.1