X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCGI%2Ft%2Frequest.t;h=96775a927973267ddbb4882784c349dd59de4237;hb=8f3ccfa25e524ac7012f7d988353f2de4c217ccb;hp=5c79050f498e12ff576fa76fb2fe8f152861fe22;hpb=13e345655fd69fad07c7c1d3f491abb9523bfcbd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/CGI/t/request.t b/lib/CGI/t/request.t
index 5c79050..96775a9 100755
--- a/lib/CGI/t/request.t
+++ b/lib/CGI/t/request.t
@@ -1,16 +1,8 @@
 #!/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 retrieve HTTP request info
 ######################### We start with some black magic to print on failure.
+use lib '../blib/lib','../blib/arch';
 
 BEGIN {$| = 1; print "1..33\n"; }
 END {print "not ok 1\n" unless $loaded;}