1 files changed, 1 insertions, 1 deletions
diff --git a/t/test.pl b/t/test.pl
index 98e7632e92..32d0d64d09 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -978,7 +978,7 @@ sub fresh_perl {
     $runperl_args->{progfile} ||= $tmpfile;
     $runperl_args->{stderr}     = 1 unless exists $runperl_args->{stderr};
 
-    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";
+    open TEST, '>', $tmpfile or die "Cannot open $tmpfile: $!";
     print TEST $prog;
     close TEST or die "Cannot close $tmpfile: $!";