diff options
| -rwxr-xr-x | t/op/closure.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/closure.t b/t/op/closure.t index 4d560f6119..574656b304 100755 --- a/t/op/closure.t +++ b/t/op/closure.t @@ -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 |