Upgrade to the CGI.pm 2.93.

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

diff --git a/lib/CGI/t/util.t b/lib/CGI/t/util.t
index c5ec617..8f9da3b 100644 (file)
--- a/lib/CGI/t/util.t
+++ b/lib/CGI/t/util.t
@@ -1,17 +1,10 @@
 #!/usr/local/bin/perl -w
 
-BEGIN {
-       chdir 't' if -d 't';
-       if ($ENV{PERL_CORE}) {
-               @INC = '../lib';
-       } else {
-               unshift @INC, qw( ../blib/lib ../blib/arch lib );
-       }
-}
-
 # Test ability to escape() and unescape() punctuation characters
 # except for qw(- . _).
 ######################### We start with some black magic to print on failure.
+use lib '../blib/lib','../blib/arch';
+
 BEGIN {$| = 1; print "1..59\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Config;