# issues "Subroutine X redefined at Y" warning, but
   # I can turn that one off with $^W
   local( $^W ) = 0;

   # Needed because I'm using a symbolic ref now.
   no strict 'refs';
   my $old_scan_podpath = *{'Pod::Html::scan_podpath'}{CODE};