In overload::ov_method, use ‘no overloading’

Using this instead of Scalar::Util makes things marginally faster.

diff --git a/lib/overload.pm b/lib/overload.pm
index 865a712..a2797e7 100644 (file)
--- a/lib/overload.pm
+++ b/lib/overload.pm
@@ -82,9 +82,8 @@ sub ov_method {
   my $globref = shift;
   return undef unless $globref;
   my $sub = \&{*$globref};
-  require Scalar::Util;
-  return $sub
-    if Scalar::Util::refaddr($sub) != Scalar::Util::refaddr(\&nil);
+  no overloading;
+  return $sub if !ref $sub or $sub != \&nil;
   return shift->can($ {*$globref});
 }