BEGIN {
    if ($] < 5.006) {
        $INC{'warnings.pm'} = __FILE__;
        no strict 'refs';
        *{'warnings::unimport'} = sub {0};
    }
}