t/55-eg: check example pages for warnings

[perl/plp/.git] / lib / Test / PLP.pm

diff --git a/lib/Test/PLP.pm b/lib/Test/PLP.pm
index 04bfe2e9b21e29859c8c82f84e0c1d7fef97c405..519faca92e8dd1c8bfb073c21da06b0513c9a94f 100644 (file)
--- a/lib/Test/PLP.pm
+++ b/lib/Test/PLP.pm
@@ -101,7 +101,8 @@ sub plp_is {
                return is_string($output, $expect, $name);
        }
 
-       return $tb->ok(defined $output, $name);
+       $tb->ok(defined $output, $name);
+       return $output;
 }
 
 sub _getwarning {