From: Audrey Tang <cpan@audreyt.org>
Date: Thu, 22 Jul 2004 20:17:58 +0000 (-0700)
Subject: Re: [perl #30783] Test::Builder does not handle overloaded "name" values
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=10b6f1b7b39b2f8cb8914572dfcaa8e255a3f480;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {