From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 24 Sep 2001 17:10:41 +0000 (+0000)
Subject: ok().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=01af4f200e29caa676ba1d52331204abe2c88216;p=p5sagit%2Fp5-mst-13.2.git

ok().

p4raw-id: //depot/perl@12181
---

diff --git a/t/op/pack.t b/t/op/pack.t
index 6b9ceeb..fcc2aba 100755
--- 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);
 }