My "fix" is the normal fix. Use File::Find, or suggest patches to it if it doesn't work the way you want. That way I don't have to review every line of your code in code-review to find out if you've broken it on some platforms, or introduced a security hole.

The cost of revinventing the wheel is not just in development, but in every phase afterward: testing, documenting, production, and maintenance.

-- Randal L. Schwartz, Perl hacker