From 81d8a24707e5e29312efe194299c42f93cebed52 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 1 Apr 2013 22:28:43 -0600
Subject: [PATCH] dist/Storable/t/utf8.t: Fix to run under EBCDIC

---
 dist/Storable/t/utf8.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dist/Storable/t/utf8.t b/dist/Storable/t/utf8.t
index fd20ef6..dfb43ea 100644
--- a/dist/Storable/t/utf8.t
+++ b/dist/Storable/t/utf8.t
@@ -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});
 
-- 
1.8.3.1