no warnings qw/redefine/; fix #1