my $abwarn = $SIG{__WARN__} // sub { warn shift };
$SIG{__WARN__} = sub {
    my $w = shift;
    $abwarn->($w) if $w !~ /::[ab]" used only once:/;
};