precedence issue

broke tests on perl 5.19.x