X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fcgi-request.t;h=fde3fd04cf27a0fb3d7048b35974686a51b46bc0;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=390c08cccd18656abb2e0b7a4e7eef5a582f9b81;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t
index 390c08c..fde3fd0 100755
--- a/t/lib/cgi-request.t
+++ b/t/lib/cgi-request.t
@@ -1,13 +1,14 @@
-#!./perl
-
-# Test ability to retrieve HTTP request info
-######################### We start with some black magic to print on failure.
+#!/usr/local/bin/perl -w
 
 BEGIN {
-    chdir 't' if -d 't';
-    unshift @INC, '../lib' if -d '../lib';
+    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';
+
 BEGIN {$| = 1; print "1..33\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use CGI ();