ok().

p4raw-id: //depot/perl@12181

diff --git a/t/op/pack.t b/t/op/pack.t
index 6b9ceeb..fcc2aba 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -653,5 +653,5 @@ foreach (
     my ($u, $v) = qw(foo xyzzy);
     my $p = pack($t, $u, $v);
     my @u = unpack($t, $p);
-    print @u == 2 && $u[0] eq $u && $u[1] eq $v ? "ok 611\n" : "not ok 611\n";
+    ok(@u == 2 && $u[0] eq $u && $u[1] eq $v);
 }