Patch from RT#87566

This allows tests to pass for me on perl 5.18.1
Merge pull request #20 from dsteinbrunner/patch-1

Patch from RT#87566