Fix cwd.t when libpth contains symlinks

Message-ID: <Pine.LNX.4.21.0104162234030.17949-100000@localhost.localdomain>

p4raw-id: //depot/perl@9722

diff --git a/t/lib/cwd.t b/t/lib/cwd.t
index eb5ec7a..82f8dba 100644 (file)
--- a/t/lib/cwd.t
+++ b/t/lib/cwd.t
@@ -104,8 +104,8 @@ else {
     print +($ENV{PWD}  =~ m|\bt$| ? "" : "not "), "ok 12\n";
 }
 
-if ($Config{d_symlink}) {
-    my @dirs = split " " => $Config{libpth};
+my @dirs = grep(! -l $_ => (split " " => $Config{libpth}));
+if (@dirs && $Config{d_symlink}) {
     my $target = pop @dirs;
     symlink $target => "linktest";
     mkdir "pteerslt";