my $old = \&Pod::HTML::scan_podpath;
{
    local $^W;
    *Pod::HTML::scan_podpath = sub {
        if ( $old == \&Pod::HTML::scan_podpath ) {
            croak "...";
        }
        &{$old}( @_ );
    };
}