EBCDIC: the encoding pragma would need some rethinking,

[p5sagit/p5-mst-13.2.git] / lib / encoding.t

diff --git a/lib/encoding.t b/lib/encoding.t
index 8b14c88..d61c4f6 100644 (file)
--- a/lib/encoding.t
+++ b/lib/encoding.t
@@ -1,5 +1,11 @@
 print "1..19\n";
 
+BEGIN {
+    if (ord("A") == 193) {
+       print "1..0 # encoding pragma does not support EBCDIC platforms\n";
+    }
+}
+
 use encoding "latin1"; # ignored (overwritten by the next line)
 use encoding "greek";  # iso 8859-7 (no "latin" alias, surprise...)