Use the proper way of setting @INC for tests
Florian Ragwitz [Sat, 4 Dec 2010 21:19:41 +0000 (21:19 +0000)]
t/author/http-server.t

index 5bab59b..0ee12eb 100644 (file)
@@ -88,13 +88,12 @@ sub check_port {
 sub prove {
     my ($inc, $tests) = @_;
     if (!(my $pid = fork)) {
-        unshift @INC, @{ $inc };
-
         require TAP::Harness;
 
         my $aggr = -e '.aggregating';
         my $harness = TAP::Harness->new({
-            ($aggr ? (test_args => $tests) : ())
+            ($aggr ? (test_args => $tests) : ()),
+            lib => $inc,
         });
 
         my $aggregator = $aggr