12 lines
537 B
Perl
12 lines
537 B
Perl
--- lib/Test/Reporter.pm.orig Wed Dec 29 21:41:54 2004
|
|
+++ lib/Test/Reporter.pm Wed Dec 29 22:21:27 2004
|
|
@@ -246,7 +246,8 @@
|
|
my($fh, $file); unless ($fh = $_[0]) {
|
|
$file = "$dir/$grade.$distribution.$Config{archname}.$Config{osvers}.${\(time)}.$$.rpt";
|
|
warn $file if $self->debug();
|
|
- open $fh, ">$file" or die __PACKAGE__, ": Can't open report file '$file': $!";
|
|
+ open FH, ">$file" or die __PACKAGE__, ": Can't open report file '$file': $!";
|
|
+ $fh = \*FH;
|
|
}
|
|
print $fh "From: $from\n";
|
|
print $fh "Subject: $subject\n";
|