Change the regression test added by 26410 to use test.pl; this makes

[p5sagit/p5-mst-13.2.git] / t / op / taint.t

diff --git a/t/op/taint.t b/t/op/taint.t
index 4aab737..3d333c8 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1145,7 +1145,7 @@ TERNARY_CONDITIONALS: {
     while($a[0]=~ m/(.)/g ) {
        last if $i++ > 10000;
     }
-    test $i < 10000, "infinite m//g";
+    cmp_ok $i, '<', 10000, "infinite m//g";
     
 }