Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 taking refuge in the Monastery: (8)
As of 2014-08-23 16:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (174 votes), past polls