Change 19947: Apply Schwern's suggested warning code from

[Jarkko Hietaniemi]

Change 19947 by [EMAIL PROTECTED] on 2003/07/03 06:35:29

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

Affected files ...

... //depot/perl/lib/Test/Harness/Straps.pm#15 edit

Differences ...

==== //depot/perl/lib/Test/Harness/Straps.pm#15 (text) ====
Index: perl/lib/Test/Harness/Straps.pm
--- perl/lib/Test/Harness/Straps.pm#14~19195~   Sun Apr 13 02:02:05 2003
+++ perl/lib/Test/Harness/Straps.pm     Wed Jul  2 23:35:29 2003
@@ -358,7 +358,13 @@
 
     $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 [EMAIL PROTECTED] directories with ".
+       "'$Config{path_sep}': @naughty_inc\n" if @naughty_inc;
+
+    return join $Config{path_sep}, @clean_inc;
 }
 
 =item B<_filtered_INC>
End of Patch.