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

to be effective.

p4raw-id: //depot/perl@12888

1 files changed, 5 insertions, 4 deletions

diff --git a/lib/CGI/t/html.t b/lib/CGI/t/html.t
index 91523fe55b..761951f6e1 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.