$SIG{__WARN__} = sub {
    my $w = shift;
    warn $w unless $w =~ /::[ab]" used only once:/;
};