no warnings 'redefine';
  if ($Data::Dumper::VERSION < NEXT_VERSION) {
    *Data::Dumper::some_method = 
        sub {
           # replacement code here
        };
  }