Re: [perl #36622] y/// at end of file

[p5sagit/p5-mst-13.2.git] / t / test.pl

diff --git a/t/test.pl b/t/test.pl
index 9f4f03b..179b2f1 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -579,7 +579,7 @@ sub _fresh_perl {
                   {if (-e _ and -f _)}
     }
 
-    print TEST $prog, "\n";
+    print TEST $prog;
     close TEST or die "Cannot close $tmpfile: $!";
 
     my $results = runperl(%$runperl_args);