Re: [perl #30783] Test::Builder does not handle overloaded "name" values

Message-ID: <1912f0e204072220171790193a@mail.gmail.com>

p4raw-id: //depot/perl@23167

diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm
index 6f3edd8..331ce67 100644 (file)
--- a/lib/Test/Builder.pm
+++ b/lib/Test/Builder.pm
@@ -8,7 +8,7 @@ $^C ||= 0;
 
 use strict;
 use vars qw($VERSION $CLASS);
-$VERSION = '0.17';
+$VERSION = '0.17_01';
 $CLASS = __PACKAGE__;
 
 my $IsVMS = $^O eq 'VMS';
@@ -316,7 +316,7 @@ ERR
     if( defined $name ) {
         $name =~ s|#|\\#|g;     # # in a name can confuse Test::Harness.
         $out   .= " - $name";
-        $result->{name} = $name;
+        $result->{name} = "$name";
     }
     else {
         $result->{name} = '';
@@ -325,7 +325,7 @@ ERR
     if( $todo ) {
         my $what_todo = $todo;
         $out   .= " # TODO $what_todo";
-        $result->{reason} = $what_todo;
+        $result->{reason} = "$what_todo";
         $result->{type}   = 'todo';
     }
     else {