diff options
| author | Abigail <abigail@abigail.be> | 2009-11-20 18:58:34 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2009-11-20 18:58:34 +0100 |
| commit | 51393fc07355ffd0a4b6b212fd676ee37de23e09 (patch) | |
| tree | 6e4fd003d44a1c78d748c0909fae909f3e29525d /lib/File/Find.pm | |
| parent | d5213412bf7e51630c57470e49cc6b127a508ed6 (diff) | |
| download | perl-51393fc07355ffd0a4b6b212fd676ee37de23e09.tar.gz | |
Fix bug #68260
File::Find was not resolving paths of the form "/..////../" correctly.
Fixed by adding a quantifier to the substitution parameter in
contract_name().
Diffstat (limited to 'lib/File/Find.pm')
| -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 eddedbd354..3cf14da2ab 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -448,7 +448,7 @@ sub contract_name { my $abs_name= $cdir . $fn; if (substr($fn,0,3) eq '../') { - 1 while $abs_name =~ s!/[^/]*/\.\./!/!; + 1 while $abs_name =~ s!/[^/]*/\.\./+!/!; } return $abs_name; |