Leader of Birmingham.pm [pm.org] and a CPAN author [cpan.org]. Co-organised YAPC::Europe in 2006 and the 2009 QA Hackathon, responsible for the YAPC Conference Surveys [yapc-surveys.org] and the QA Hackathon [qa-hackathon.org] websites. Also the current caretaker for the CPAN Testers websites and data stores.
If you really want to find out more, buy me a Guinness
Alas Randal had only tested on a UNIX box. Due to the inconsistent way File::Spec and Find::Find handle file paths on other operating systems, the whole script broke
I was going to see if I could write a patch, but after wading through the 2 modules, I felt it was far safer to amend the script. So if you want to run the script on a Windows box, add the following line between lines 69 and 70 in Randal's script:
$local_file =~ s|\\|/|g;
The moral of this story is be very careful if you're relying on portability when using File::Spec and Find::Find output together.
Update: fixed the regex.