I think the author made it clear that this wasn't a File::Find replacement here:
There is a very notable module that helps with this task, and that is File::Find. While this is an incredibly useful module, this tutorial is designed to give you a basic understanding of recursion in Perl, and should hopefully be beneficial to you for more than just file and directory processing (though that will be the focus).
He seems to be pitching this as a learning exercise. Your node pointing out some bugs adds to the learning experience.
Perhaps it should be made more clear that it isn't production usable code, but...
Lighten up. ( /me braces for the -- onslaught :)
Update: I agree with merlyn in general, but I think a gentle suggestion that the author update the node with mention of the bugs and fixes would work just fine. Perhaps it would be even more helpful for a beginner to learn from someone else's common mistakes ? After all, this is a forum.
In reply to Re: Stop reinventing the wheel! (was Re: Directory Recursion)