diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-03-06 16:50:25 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-07 14:08:43 +0000 |
| commit | af6a4ad191050514a1d8dc2a8b03c1c1459c2343 (patch) | |
| tree | 0b680866f59059771c3df76eef6d66117a53b736 | |
| parent | 9980ade4b1ecfbcfff00b2f605a3d4029b09eabf (diff) | |
| download | perl-af6a4ad191050514a1d8dc2a8b03c1c1459c2343.tar.gz | |
line-end tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <404AAA11.8050001@mac.com>
p4raw-id: //depot/perl@22456
| -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 |