[tapx-dev] [commit][225] Oops.

[andy at hexten.net]

Revision: 225
Author:   andy
Date:     2007-08-10 16:35:56 +0100 (Fri, 10 Aug 2007)

Log Message:
-----------
Oops. Regression.

Modified Paths:
--------------
    trunk/smoke/smoke.pl

Modified: trunk/smoke/smoke.pl
===================================================================
--- trunk/smoke/smoke.pl	2007-08-10 15:20:43 UTC (rev 224)
+++ trunk/smoke/smoke.pl	2007-08-10 15:35:56 UTC (rev 225)
@@ -206,7 +206,7 @@
         my $results = capture_command($cooked);
 
         my $status
-          = ( $results->{status} == 0 && $check->{$results} )
+          = ( $results->{status} == 0 && $check->($results) )
           ? 'passed'
           : 'failed';