Update to CGI.pm 2.78.

[p5sagit/p5-mst-13.2.git] / lib / CGI / t / html.t

diff --git a/lib/CGI/t/html.t b/lib/CGI/t/html.t
index 93e5dac..91523fe 100755 (executable)
--- a/lib/CGI/t/html.t
+++ b/lib/CGI/t/html.t
@@ -1,10 +1,5 @@
 #!/usr/local/bin/perl -w
 
-BEGIN {
-    chdir('t') if -d 't';
-    @INC = '../lib';
-}
-
 # Test ability to retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
 use lib '../blib/lib','../blib/arch';
@@ -15,6 +10,12 @@ 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;
+}
+
 ######################### End of black magic.
 
 my $CRLF = "\015\012";