From: Florian Ragwitz <rafl@debian.org>
Date: Sat, 4 Dec 2010 21:19:46 +0000 (+0000)
Subject: Stop passing along @INC
X-Git-Tag: 5.80030~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=529d5abc240ed8f626afd119417838274b8501f2;p=catagits%2FCatalyst-Runtime.git

Stop passing along @INC

It's pointless - it's always the same anyway.
---

diff --git a/t/author/http-server.t b/t/author/http-server.t
index 0ee12eb..5f8a213 100644
--- a/t/author/http-server.t
+++ b/t/author/http-server.t
@@ -56,7 +56,7 @@ if ( $single_test ) {
     $return = system( "$^X -Ilib/ $single_test" );
 }
 else {
-    $return = prove( ['lib/'], [grep { $_ ne '..' } glob('t/aggregate/live_*.t')] );
+    $return = prove(grep { $_ ne '..' } glob('t/aggregate/live_*.t'));
 }
 
 # shut it down
@@ -86,19 +86,19 @@ sub check_port {
 }
 
 sub prove {
-    my ($inc, $tests) = @_;
+    my (@tests) = @_;
     if (!(my $pid = fork)) {
         require TAP::Harness;
 
         my $aggr = -e '.aggregating';
         my $harness = TAP::Harness->new({
-            ($aggr ? (test_args => $tests) : ()),
-            lib => $inc,
+            ($aggr ? (test_args => \@tests) : ()),
+            lib => ['lib'],
         });
 
         my $aggregator = $aggr
             ? $harness->runtests('t/aggregate.t')
-            : $harness->runtests(@{ $tests });
+            : $harness->runtests(@tests);
 
         exit $aggregator->has_errors ? 1 : 0;
     } else {