From: Craig A. Berry Date: Sat, 6 Mar 2004 22:50:25 +0000 (-0600) Subject: line-end tweak for VMS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af6a4ad191050514a1d8dc2a8b03c1c1459c2343;p=p5sagit%2Fp5-mst-13.2.git line-end tweak for VMS From: "Craig A. Berry" Message-ID: <404AAA11.8050001@mac.com> p4raw-id: //depot/perl@22456 --- diff --git a/t/op/closure.t b/t/op/closure.t index 4d560f6..574656b 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