diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/overload.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index e5b2f97b6a..425da1bf05 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -1,6 +1,6 @@ package overload; -our $VERSION = '1.06'; +our $VERSION = '1.07'; sub nil {} @@ -104,6 +104,10 @@ sub AddrRef { sub mycan { # Real can would leave stubs. my ($package, $meth) = @_; + local $@; + local $!; + require mro; + my $mro = mro::get_linear_isa($package); foreach my $p (@$mro) { my $fqmeth = $p . q{::} . $meth; |