http://qs321.pair.com?node_id=63204


in reply to Re: $File::Find::prune
in thread $File::Find::prune

If you add the line
print "Got name = [$File::Find::name] dir = [$File::Find::dir]\n";
before your if statement, I think you'll see what's going wrong. $File::Find::dir doesn't contain what you think it does.
-- I knock my pate and fancy wit will come Knock as I please, there's no one at home a pontiff paraphrased