Index: Test.pm
===================================================================
--- Test.pm	(revision 32192)
+++ Test.pm	(working copy)
@@ -165,6 +165,7 @@
         print $todo_reason;
     }
     print "\n";
+    return $cond;
 }
 
 END {