diff options
| author | Yves Orton <demerphq@gmail.com> | 2018-02-25 04:07:15 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2018-02-25 04:07:15 +0100 |
| commit | 687fa129abe7abf4cd6415c9ef46308287221049 (patch) | |
| tree | e1cc306ce59e9741fc70c7eb7b581c0448fa389a /dist/Carp | |
| parent | af596f2c321249499f853ae4af57570ef48640d9 (diff) | |
| download | perl-687fa129abe7abf4cd6415c9ef46308287221049.tar.gz | |
Carp: overloads can be enabled with via ::() as well as ::((
Diffstat (limited to 'dist/Carp')
| -rw-r--r-- | dist/Carp/lib/Carp.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm index 419ba9c541..1aa16c9d24 100644 --- a/dist/Carp/lib/Carp.pm +++ b/dist/Carp/lib/Carp.pm @@ -353,7 +353,7 @@ sub format_arg { # but this breaks modules that call overloads or croak during can(), for # instance Class::Std v0.013, so if we end up here twice, we will just # load overload outright. - if ($in_recurse || do{ local $in_recurse = 1; $pack->can("((") }) { + if ($in_recurse || do{ local $in_recurse = 1; $pack->can("((") || $pack->can("()") }) { # Argument is blessed into a class with overloading, and # so might have an overloaded stringification. We don't # want to risk getting the overloaded stringification, |