diff options
| author | Audrey Tang <cpan@audreyt.org> | 2004-07-22 13:17:58 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-28 09:20:12 +0000 |
| commit | 10b6f1b7b39b2f8cb8914572dfcaa8e255a3f480 (patch) | |
| tree | f8f7e5939a6e467e891c0e6601d858d145fb67a1 /lib/Test/Builder.pm | |
| parent | 59608b94bdb1503711d01a3b061daf424794da04 (diff) | |
| download | perl-10b6f1b7b39b2f8cb8914572dfcaa8e255a3f480.tar.gz | |
Re: [perl #30783] Test::Builder does not handle overloaded "name" values
Message-ID: <1912f0e204072220171790193a@mail.gmail.com>
p4raw-id: //depot/perl@23167
Diffstat (limited to 'lib/Test/Builder.pm')
| -rw-r--r-- | lib/Test/Builder.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm index 6f3edd8cce..331ce6749a 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 { |