| Subject: | Typo; deep-recursion error |
Sorry no time to provide a diff or patch: modified pm attached. In
sum, sub rget had a typo:
if ($ln =~ /^d/ |\ $ln =~ /<DIR>/i) { # it is a dir type
Presumably should have read:
if ($ln =~ /^d/ || $ln =~ /<DIR>/i) { # it is a dir type
I made the next line read
next if $fn eq '.' or $fn eq '..'; # Lee added
That stops the deep-recursion, as well as preventing up-dir.
Lee
| Subject: | Recursive.pm |
Message body is not shown because it is too large.