Upgrade to Test::Harness 2.29.

[p5sagit/p5-mst-13.2.git] / lib / Test / Harness / Straps.pm

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index 058070b..dc3e4b6 100644 (file)
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -358,13 +358,7 @@ sub _INC2PERL5LIB {
 
     $self->{_old5lib} = $ENV{PERL5LIB};
 
-    my @filtered_inc = $self->_filtered_INC;
-    my @clean_inc   = grep !/\Q$Config{path_sep}/, @filtered_inc;
-    my @naughty_inc = grep /\Q$Config{path_sep}/, @filtered_inc;
-    warn "Test::Harness can't handle \@INC directories with ".
-       "'$Config{path_sep}': @naughty_inc\n" if @naughty_inc;
-
-    return join $Config{path_sep}, @clean_inc;
+    return join $Config{path_sep}, $self->_filtered_INC;
 }
 
 =item B<_filtered_INC>