X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCGI%2Ft%2Futil.t;h=8f9da3ba948d2936aef896f5879bf88abefeaeff;hb=8f3ccfa25e524ac7012f7d988353f2de4c217ccb;hp=c5ec617a5dc48dd1fb851baf57c800a0f765adef;hpb=13e345655fd69fad07c7c1d3f491abb9523bfcbd;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/CGI/t/util.t b/lib/CGI/t/util.t index c5ec617..8f9da3b 100644 --- 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;