diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-06-01 10:13:56 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-01 21:36:11 +0000 |
| commit | fecbda2b590e985946f0a69ff09a806c69267f6f (patch) | |
| tree | d5bfb98417aacf6b3d8af98f598d7da5a93962c3 /lib/File | |
| parent | f42f5b4cec6f47998ee3495edb73b401bb14e4f0 (diff) | |
| download | perl-fecbda2b590e985946f0a69ff09a806c69267f6f.tar.gz | |
'do 1' and puzzling (?>...)
Message-ID: <Pine.GSO.4.21.0106011412520.21027-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@10383
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Find.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index cec6afbea4..0ff767fc72 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; |