From d6fdb726ca09b2535606ec9b195d4983cbcf80e0 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sat, 25 Oct 2014 21:42:34 -0600
Subject: [PATCH] t/op/tie.t: Skip a couple tests on EBCDIC

These have different results on that platform.
---
 t/op/tie.t | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/t/op/tie.t b/t/op/tie.t
index 42e7bba..23a9b6f 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -576,7 +576,11 @@ print $h.$h;
 EXPECT
 01
 ########
+# SKIP ? $IS_EBCDIC
+# skipped on EBCDIC because "2" | "8" is 0xFA (not COLON as it is on ASCII),
+# which isn't representable in this file's UTF-8 encoding.
 # Bug 53482 (and maybe others)
+
 sub TIESCALAR { my $foo = $_[1]; bless \$foo, $_[0] }
 sub FETCH { ${$_[0]} }
 tie my $x1, "main", 2;
@@ -1417,6 +1421,9 @@ EXPECT
 main
 ok
 ########
+# SKIP ? $::IS_EBCDIC
+# skipped on EBCDIC because different from ASCII and results vary depending on
+# code page
 
 # &xsub and goto &xsub with tied @_
 use Tie::Array;
-- 
1.8.3.1