From de482fd5eff91548320228250421b402b7faaa35 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 20 Jan 2014 11:46:47 +1100
Subject: [PATCH] [perl #121031] pass a valid value for $runperl_args to
 fresh_perl_is()

Alternative patch for the problems noticed by Tobias Leich
---
 t/op/print.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/op/print.t b/t/op/print.t
index 5e508f6..5f2e8b4 100644
--- 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');
-- 
2.7.4