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.

diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm
index 5601c23..4365808 100644 (file)
--- 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 {