in reply to Perl Prototypes

I used a prototype on some recient code, and moved the function higher in the file to match, in the hopes that the function might get inlined.