Need to run the plan() at BEGIN time, else the use_ok() will fail.
Nicholas Clark [Mon, 23 Jul 2007 20:07:29 +0000 (20:07 +0000)]
However, it doesn't actually produce any output due to a known core
bug: http://rt.cpan.org/Ticket/Display.html?id=28345
(But the test count in the plan saves our bacon by alerting us)

p4raw-id: //depot/perl@31649

ext/Encode/t/mime_header_iso2022jp.t

index f1be864..818443a 100644 (file)
@@ -1,10 +1,12 @@
 
 use Test::More;
 
-if( ord("A") == 193 ) {
-    plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
-} else {
-    plan tests => 14;
+BEGIN {
+    if( ord("A") == 193 ) {
+       plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
+    } else {
+       plan tests => 14;
+    }
 }
 
 use strict;