# issues "Ambiguous use of X resolved to Y" warning that 
   # I don't know how to turn off, these don't work:
   # $SIG{__WARN__} = sub{}
   # $^W = 0
   # no strict 'refs'
   my $old_scan_podpath = *{Pod::Html::scan_podpath}{CODE};
   

##</code><code>##

   # 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};
   

##</code><code>##

   local(*Pod::Html::scan_podpath) = sub {
      # do stuff here
      # call the old implementation
      &$old_scan_podpath;  # uses @_
   };