Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Test-Reporter CPAN distribution.

Report information
The Basics
Id: 14148
Status: resolved
Priority: 0/
Queue: Test-Reporter

People
Owner: Nobody in particular
Requestors: SAPER [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: Small patch to make Test::Reporter work uder Perl 5.004
Hello, The subject says it all :-) And I confirm that with this patch, the cpantest(1) command works: http://www.nntp.perl.org/group/perl.cpan.testers/233662 Thanks
From: saper [...] cpan.org
Hmm.. adding the patch this time :-) -- Close the world, txEn eht nepO.
--- Test-Reporter-1.27/lib/Test/Reporter.pm 2005-01-18 00:51:24.000000000 +0100 +++ Test-Reporter-1.27+01/lib/Test/Reporter.pm 2005-08-13 18:35:01.796734662 +0200 @@ -18,6 +18,7 @@ use Config; use Carp; use Net::SMTP; +use FileHandle; use File::Temp; use Test::Reporter::Mail::Util; use Test::Reporter::Date::Format; @@ -257,6 +258,7 @@ my($fh, $file); unless ($fh = $_[0]) { $file = "$dir/$grade.$distribution.$Config{archname}.$Config{osvers}.${\(time)}.$$.rpt"; warn $file if $self->debug(); + $fh = new FileHandle; open $fh, ">$file" or die __PACKAGE__, ": Can't open report file '$file': $!"; } print $fh "From: $from\n";
Thanks for the report. Your patch has been accepted and is scheduled for inclusion in 1.28.