From: Jeff Pinyan <japhy@pobox.com>
Date: Fri, 1 Jun 2001 14:13:56 +0000 (-0400)
Subject: 'do 1' and puzzling (?>...)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fecbda2b590e985946f0a69ff09a806c69267f6f;p=p5sagit%2Fp5-mst-13.2.git

'do 1' and puzzling (?>...)
Message-ID: <Pine.GSO.4.21.0106011412520.21027-100000@crusoe.crusoe.net>

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

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index cec6afb..0ff767f 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -216,7 +216,7 @@ sub contract_name {
     my $abs_name= $cdir . $fn;
 
     if (substr($fn,0,3) eq '../') {
-	do 1 while ($abs_name=~ s|/(?>[^/]+)/\.\./|/|);
+       1 while $abs_name =~ s!/[^/]*/\.\./!/!;
     }
 
     return $abs_name;