You need to backslash the subs so as to pass a reference to them, not call them.

prototype_ok( \&fooey, '$$', 'Double scalar fooey' );
prototype_ok( \&fooey, '$$' );
[download]

And yes, the t\function.t has it wrong, as is the POD description for prototype_ok().