To really skip the test an exit() is needed.

p4raw-id: //depot/perl@14593

diff --git a/lib/encoding.t b/lib/encoding.t
index d61c4f6..bc7437f 100644 (file)
--- a/lib/encoding.t
+++ b/lib/encoding.t
@@ -3,6 +3,7 @@ print "1..19\n";
 BEGIN {
     if (ord("A") == 193) {
        print "1..0 # encoding pragma does not support EBCDIC platforms\n";
+       exit(0);
     }
 }