[perl #121031] pass a valid value for $runperl_args to fresh_perl_is()

Alternative patch for the problems noticed by Tobias Leich

diff --git a/t/op/print.t b/t/op/print.t
index 5e508f6..5f2e8b4 100644 (file)
--- a/t/op/print.t
+++ b/t/op/print.t
@@ -6,9 +6,9 @@ BEGIN {
 
 plan(3);
 
-fresh_perl_is('$_ = qq{OK\n}; print;', "OK\n",
+fresh_perl_is('$_ = qq{OK\n}; print;', "OK\n", {},
               'print without arguments outputs $_');
-fresh_perl_is('$_ = qq{OK\n}; print STDOUT;', "OK\n",
+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');