diff options
Diffstat (limited to 't/op/print.t')
| -rw-r--r-- | t/op/print.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/print.t b/t/op/print.t index 5f2e8b4bbd..a98b0bf845 100644 --- a/t/op/print.t +++ b/t/op/print.t @@ -12,7 +12,7 @@ fresh_perl_is('$_ = qq{OK\n}; print STDOUT;', "OK\n", {}, 'print with only a filehandle outputs $_'); SKIP: { skip_if_miniperl('no dynamic loading of PerlIO::scalar in miniperl'); -fresh_perl_is(<<'EOF', "\xC1\xAF\xC1\xAF\xC1\xB0\xC1\xB3", "", "print doesn't launder utf8 overlongs"); +fresh_perl_is(<<'EOF', "\xC1\xAF\xC1\xAF\xC1\xB0\xC1\xB3", {}, "print doesn't launder utf8 overlongs"); use strict; use warnings; |