diff options
| author | Tony Cook <tony@develop-help.com> | 2014-01-20 12:06:47 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-01-20 12:08:28 +1100 |
| commit | 20e5bab43efd0e449d0741f5c5a278e7e20ee9dc (patch) | |
| tree | 42dcac920f88db86a5ba4163376eb40f324b8ee9 /t/op/print.t | |
| parent | de482fd5eff91548320228250421b402b7faaa35 (diff) | |
| download | perl-20e5bab43efd0e449d0741f5c5a278e7e20ee9dc.tar.gz | |
[perl #121031] fix all of the other incorrect calls to fresh_perl_is()
The third argument to fresh_perl_is()/fresh_perl_like() is treated as
a hashref, passing a string is kind of strange.
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; |