FAQ sync.

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

diff --git a/lib/CGI/t/form.t b/lib/CGI/t/form.t
index 344e7f0..612e2e1 100755 (executable)
--- a/lib/CGI/t/form.t
+++ b/lib/CGI/t/form.t
@@ -1,10 +1,16 @@
 #!/usr/local/bin/perl -w
 
-use lib qw(t/lib);
-
-# Due to a bug in older versions of MakeMaker & Test::Harness, we must
-# ensure the blib's are in @INC, else we might use the core CGI.pm
-use lib qw(blib/lib blib/arch);
+BEGIN {
+       chdir 't' if -d 't';
+       if ($ENV{PERL_CORE}) {
+               @INC = '../lib';
+       } else {
+               # Due to a bug in older versions of MakeMaker & Test::Harness,
+               # we must ensure the blib's are in @INC, else we might use
+               # the core CGI.pm
+               unshift @INC, qw( ../blib/lib ../blib/arch ../lib );
+       }
+}
 
 use Test::More tests => 17;
 
@@ -122,7 +128,7 @@ is(popup_menu(-name     => 'game',
 <select name="game">
 <option  value="checkers">checkers</option>
 <option  value="chess">chess</option>
-<option selected="1" value="cribbage">cribbage</option>
+<option  selected="1" value="cribbage">cribbage</option>
 </select>
 END