silence new perl 5.16 warning
fix stupid bug.