From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Jul 2007 20:07:29 +0000 (+0000)
Subject: Need to run the plan() at BEGIN time, else the use_ok() will fail.
X-Git-Tag: accepted/trunk/20130322.191538~14833
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c5b8327978ae146c737356545c4212795dcdd744;p=platform%2Fupstream%2Fperl.git

Need to run the plan() at BEGIN time, else the use_ok() will fail.
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
---

diff --git a/ext/Encode/t/mime_header_iso2022jp.t b/ext/Encode/t/mime_header_iso2022jp.t
index f1be864..818443a 100644
--- a/ext/Encode/t/mime_header_iso2022jp.t
+++ b/ext/Encode/t/mime_header_iso2022jp.t
@@ -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;