Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: Walking a directory tree with net:FTP:find

by thundergnat (Deacon)
on Jun 01, 2012 at 14:04 UTC ( #973765=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Walking a directory tree with net:FTP:find
in thread Walking a directory tree with net:FTP:find

I doubt if it got corrupted by the installation process; it's a pure perl module so should be pretty straight forward.

I'm working on a Windows machine w/Active perl at the moment and was moderately surprised to find there don't seem to be any ppm packages for that module generally available.

Ah well, I went ahead and installed it manually and tried (a suitably modified version of) your script and am getting the same results locally.

In poking around a bit, it looks to me like a bug in Net::FTP::Find::Mixin. Specifically, in line 116:

if ($depth == 0) { next if $_ ne '.'; # <-- line 116 $_ = $directory; }

The logic seems backwards; I believe it should be eq not ne.

if ($depth == 0) { next if $_ eq '.'; $_ = $directory; }

With that change made locally it works as I would expect... And on inspection of the Net::FTP::Find::Mixin CPAN page, there is an open bug report filed about this very problem, (Though it doesn't mention the above solution)


Comment on Re^3: Walking a directory tree with net:FTP:find
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://973765]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-07-02 23:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (47 votes), past polls