diff options
| -rwxr-xr-x | t/io/utf8.t | 3 |
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++; } |