This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Carp.pm: Restore defined &overload::StrVal check
authorFather Chrysostomos <sprout@cpan.org>
Mon, 19 Aug 2013 14:16:48 +0000 (07:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 19 Aug 2013 14:16:48 +0000 (07:16 -0700)
See 578ded8b8.  This was accidentally changed by f7c3eab3866.

dist/Carp/lib/Carp.pm

index 8225028..5ca5e52 100644 (file)
@@ -215,7 +215,7 @@ sub format_arg {
         }
         else
         {
         }
         else
         {
-            $arg = defined($overload::VERSION) ? overload::StrVal($arg) : "$arg";
+            $arg = defined(&overload::StrVal) ? overload::StrVal($arg) : "$arg";
         }
     }
     if ( defined($arg) ) {
         }
     }
     if ( defined($arg) ) {