From: Benjamin Sugars <bsugars@canoe.ca>
Date: Mon, 16 Apr 2001 22:43:29 +0000 (-0400)
Subject: Fix cwd.t when libpth contains symlinks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21edbe6aec56f105061b5267384aa90210c33925;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";