This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ok().
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 24 Sep 2001 17:10:41 +0000 (17:10 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 24 Sep 2001 17:10:41 +0000 (17:10 +0000)
p4raw-id: //depot/perl@12181

t/op/pack.t

index 6b9ceeb..fcc2aba 100755 (executable)
@@ -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);
 }