SYN SYN

[p5sagit/p5-mst-13.2.git] / t / lib / cgi-request.t

diff --git a/t/lib/cgi-request.t b/t/lib/cgi-request.t
index 390c08c..fde3fd0 100755 (executable)
--- 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 ();