diff options
author | Zefram <zefram@fysh.org> | 2013-08-18 14:24:30 +0100 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2013-08-18 14:24:30 +0100 |
commit | 578ded8b83c81ed50a24240399864adf97d37c64 (patch) | |
tree | be3273efde1fbcbaa45e87e5435d03d07a62da3b | |
parent | 3bcf54a5101e82a7b6351d1c47a85c1e9c5cf6c3 (diff) | |
download | perl-578ded8b83c81ed50a24240399864adf97d37c64.tar.gz |
better check for overload::StrVal
The overloading logic in Carp got confused on perl 5.6 by the overload
module not setting $VERSION. As the overload-is-loaded check controls
the use of overload::StrVal(), check for that sub being defined rather
than checking $VERSION.
-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 5601c23ec7..4365808b62 100644 --- a/dist/Carp/lib/Carp.pm +++ b/dist/Carp/lib/Carp.pm @@ -213,7 +213,7 @@ sub format_arg { { 1; } - elsif (defined($overload::VERSION)) + elsif (defined(&overload::StrVal)) { if ($in_recurse || !do { |