podcheck.t: Return success/failure from ok()
authorKarl Williamson <public@khwilliamson.com>
Wed, 26 Sep 2012 17:19:20 +0000 (11:19 -0600)
committerKarl Williamson <public@khwilliamson.com>
Wed, 26 Sep 2012 17:51:14 +0000 (11:51 -0600)
This program has a private version of ok() to avoid messages that would
come from the standard one that would confuse things in these tests.
It did not return true/false prior to this commit

t/porting/podcheck.t

index 5e1d019..cc71bda 100644 (file)
@@ -472,7 +472,7 @@ sub suppressed {
         $current_test++;
         print "not " unless $success;
         print "ok $current_test - $message\n";
-        return;
+        return $success;
     }
 
     sub skip {