'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 (file)
--- 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;