This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
line-end tweak for VMS
[perl5.git] / t / op / closure.t
index 4d560f6..574656b 100755 (executable)
@@ -673,9 +673,9 @@ __EOF__
     # savestack, due to the early freeing of the anon closure
 
     my $got = runperl(stderr => 1, prog => 
-'sub d {die} my $f; $f = sub {my $x=1; $f = 0; d}; eval{$f->()}; print qw(ok)'
+'sub d {die} my $f; $f = sub {my $x=1; $f = 0; d}; eval{$f->()}; print qq(ok\n)'
     );
-    test { $got eq 'ok' };
+    test { $got eq "ok\n" };
 }
 
 # After newsub is redefined outside the BEGIN, it's CvOUTSIDE should point