[stp-svn] SF.net SVN: stp: [310] trunk/Test-Sut/lib/Test/Sut.pm

[<jud...@us...>]

Revision: 310
Author:   judith_osdl
Date:     2006-07-14 10:59:30 -0700 (Fri, 14 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=310&view=rev

Log Message:
-----------
Fix the email_resuls include.

Modified Paths:
--------------
    trunk/Test-Sut/lib/Test/Sut.pm
Modified: trunk/Test-Sut/lib/Test/Sut.pm
===================================================================
--- trunk/Test-Sut/lib/Test/Sut.pm	2006-07-14 17:43:18 UTC (rev 309)
+++ trunk/Test-Sut/lib/Test/Sut.pm	2006-07-14 17:59:30 UTC (rev 310)
@@ -107,6 +107,7 @@
     $self->{ 'stp_client_log' } = $self->getConfigParam( "stp_client_log" );
     $self->{ 'state_file' }     = $self->getConfigParam( "state_file" );
     $self->{ 'rpc' }            = '';
+    $self->{ 'email_results' }  = $self->getConfigParam( "email_results" );
 
     # Check the attributes
     unless ( defined $self->{ 'exec_home' } )
@@ -185,9 +186,9 @@
         # This does no installation
         require Test::Sut::Kernel::Dummy; Test::Sut::Dummy->import;
     }
-    if ( $self->getConfigParam( "email_results" =~ m/yes/ ) ){
+    if ( $self->{ "email_results" } =~ m/yes/ ){
          require Test::Sut::Upload::Email; Test::Sut::Upload::Email->import;
-    } elsif ( $self->getConfigParam( "email_results" =~ m/auto/ ) ){
+    } elsif ( $self->{ "email_results" } =~ m/auto/ ){
         require Test::Sut::Upload::EmailW; Test::Sut::Upload::EmailW->import;
     } elsif ( $self->{ 'lite' } eq 'yes' ) {
         require Test::Sut::Upload; Test::Sut::Upload->import;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.