dist/Storable/t/code.t: Fixes to run under EBCDIC

author Karl Williamson <public@khwilliamson.com>

Tue, 21 May 2013 03:59:48 +0000 (21:59 -0600)

committer Karl Williamson <khw@cpan.org>

Mon, 9 Mar 2015 21:19:57 +0000 (15:19 -0600)
author Karl Williamson <public@khwilliamson.com>
Tue, 21 May 2013 03:59:48 +0000 (21:59 -0600)
committer Karl Williamson <khw@cpan.org>
Mon, 9 Mar 2015 21:19:57 +0000 (15:19 -0600)
diff --git a/dist/Storable/t/code.t b/dist/Storable/t/code.t

index c383142..7fc40ba 100644 (file)
--- 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);
  
  ######################################################################
author	Karl Williamson <public@khwilliamson.com>
	Tue, 21 May 2013 03:59:48 +0000 (21:59 -0600)
committer	Karl Williamson <khw@cpan.org>
	Mon, 9 Mar 2015 21:19:57 +0000 (15:19 -0600)