From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 6 Mar 2004 22:50:25 +0000 (-0600)
Subject: line-end tweak for VMS
X-Git-Tag: accepted/trunk/20130322.191538~22243
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=af6a4ad191050514a1d8dc2a8b03c1c1459c2343;p=platform%2Fupstream%2Fperl.git

line-end tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
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