A rejected hunk of #18902 reapplied.

p4raw-id: //depot/perl@18903

1 files changed, 1 insertions, 2 deletions

diff --git a/t/io/utf8.t b/t/io/utf8.t
index e5005e5d64..c7ad296d8d 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -291,8 +291,7 @@ ok( 1 );
 	    utf8::upgrade($s) if $v->[1] eq "utf8";
 
 	    $s .= <F>;
-	    print $s eq chr($v->[0]) . chr($u->[0]) ?
-		"ok $t # rcatline utf8\n" : "not ok $t # rcatline utf8\n";
+	    ok( $s eq chr($v->[0]) . chr($u->[0]), 'rcatline utf8' );
 	    close F;
 	    $t++;
 	}