From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 Jul 2003 06:35:29 +0000 (+0000)
Subject: Apply Schwern's suggested warning code from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5877e5bee20537e78e0922570e32f4390ac0f90c;p=p5sagit%2Fp5-mst-13.2.git

Apply Schwern's suggested warning code from
[perl #22209] Test::Harness::Straps vs. $Config{path_sep}

p4raw-id: //depot/perl@19947
---

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index dc3e4b6..058070b 100644
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -358,7 +358,13 @@ sub _INC2PERL5LIB {
 
     $self->{_old5lib} = $ENV{PERL5LIB};
 
-    return join $Config{path_sep}, $self->_filtered_INC;
+    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;
 }
 
 =item B<_filtered_INC>