i was bitten by this File::Find-chdir bug not so long ago... although i notice that you are passing productionize the value of $File::Find::name, which, according to the perl5.6 docs says:

`$File::Find::name' contains the complete pathname to the file. You are chdir()'d to `$File::Find::dir' when the function is called, unless `no_chdir' was specified. When

...in which case you should have the correct pathname in productionize. i don't believe this was the case with previous versions(???).

you may want to check out the no_chdir option (from man File::Find...):

`no_chdir' Does not `chdir()' to each directory as it recurses. The wanted() function will need to be aware of this, of course. In this case, `$_' will be the same as `$File::Find::name'.

personally, in the future i would stick with defining my own routines for the current path and file, ie:

sub current_dir { $File::find::dir }
sub current_file { $_ }
[download]

...and then go from there... just in case you end up writing your own traversal function and ditching File::Find altogether... ;-)

paranoid dirty