evade annoying, spurious warnings

Prototype mismatch: sub main::blessed: none vs ($) at /usr/local/lib/perl5/site_perl/5.12.3/Sub/Exporter.pm line 896
Prototype mismatch: sub main::reftype: none vs ($) at /usr/local/lib/perl5/5.12.3/Exporter.pm line 64. at t/parsePatch.t line 7