From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 7 Nov 2001 14:26:42 +0000 (+0000)
Subject: The (emulated) "no utf8" must be in a BEGIN block
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00b748f0d89e41e53cd733a2246666a23c155eb2;p=p5sagit%2Fp5-mst-13.2.git

The (emulated) "no utf8" must be in a BEGIN block
to be effective.

p4raw-id: //depot/perl@12888
---

diff --git a/lib/CGI/t/html.t b/lib/CGI/t/html.t
index 91523fe..761951f 100755
--- a/lib/CGI/t/html.t
+++ b/lib/CGI/t/html.t
@@ -10,10 +10,11 @@ use CGI (':standard','-no_debug','*h3','start_table');
 $loaded = 1;
 print "ok 1\n";
 
-if( $] > 5.006 ) {
-    # no utf8
-    require utf8; # we contain Latin-1
-    utf8->unimport;
+BEGIN {
+    if ($] >= 5.006) {
+	require utf8;	# we contain Latin-1 in subtest #22,
+	utf8->unimport;	# possible "use utf8" must be undone
+    }
 }
 
 ######################### End of black magic.