selftest: Fix uninitialized variables in selftest output.

diff --git a/selftest/output/buildfarm.pm b/selftest/output/buildfarm.pm
index bd21fc683dc459f3d2f33f7a2fa79312615742e7..09b84de99eba3186f8069109d57aad928d2f693a 100644 (file)
--- a/selftest/output/buildfarm.pm
+++ b/selftest/output/buildfarm.pm
@@ -69,14 +69,22 @@ sub output_msg($$)
 {
        my ($self, $output) = @_;
 
 {
        my ($self, $output) = @_;
 

-       $self->{test_output}->{$self->{NAME}} .= $output;
+       if (defined($self->{NAME})) {
+               $self->{test_output}->{$self->{NAME}} .= $output;
+       } else {
+               print $output;
+       }

 }
 
 sub control_msg($$)
 {
        my ($self, $output) = @_;
 
 }
 
 sub control_msg($$)
 {
        my ($self, $output) = @_;
 

-       $self->{test_output}->{$self->{NAME}} .= $output;
+       if (defined($self->{NAME})) {
+               $self->{test_output}->{$self->{NAME}} .= $output;
+       } else {
+               print $output;
+       }

 }
 
 sub end_testsuite($$$$$$)
 }
 
 sub end_testsuite($$$$$$)


@@ -89,6 +97,7 @@ sub end_testsuite($$$$$$)
        if ($result ne "success") {
                $self->{statistics}->{SUITES_FAIL}++;
        }
        if ($result ne "success") {
                $self->{statistics}->{SUITES_FAIL}++;
        }

+       $self->{NAME} = undef;

 }
 
 sub start_test($$$)
 }
 
 sub start_test($$$)