From dae3349befa4da12591930c4991283a48b63d223 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Thu, 27 Nov 2014 22:35:07 -0700
Subject: [PATCH] ext/PerlIO-encoding/t/encoding.t: Skip on EBCDIC

encoding doesn't current work.
---
 ext/PerlIO-encoding/t/encoding.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t
index fdd1f24..cba14a8 100644
--- a/ext/PerlIO-encoding/t/encoding.t
+++ b/ext/PerlIO-encoding/t/encoding.t
@@ -9,6 +9,10 @@ BEGIN {
 	print "1..0 # Skip: not Encode\n";
 	exit 0;
     }
+    if (ord("A") == 193) {
+	print "1..0 # Skip: EBCDIC\n";
+	exit 0;
+    }
     require "../../t/charset_tools.pl";
 }
 
-- 
1.8.3.1