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