From c1b879e57aecbfe520b3f44dd28472d1862f037d Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Wed, 5 Jan 2011 19:14:06 -0600 Subject: Make newline on last record explicit. On VMS, the last line written to a file will get a trailing newline willy nilly. This has its advantages insofar as you never get the "no newline at end of file" warnings from various utilities, but reality conflicts with expectations when you explicitly test for the last (or only) line *not* ending with newline, which is what the recent addtion to ref.t (5e3072707906cc4cb8a364c4cf7c487df0300caa) was doing. Adding an explicit newline makes everyone happy. --- t/op/ref.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/op/ref.t b/t/op/ref.t index 83b5cb8a98..0a39f106c7 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -381,16 +381,16 @@ curr_test($test + 2); is( runperl( - stderr => 1, prog => 'sub DESTROY { print q-aaa- } bless \$a[0]' + stderr => 1, prog => 'sub DESTROY { print qq-aaa\n- } bless \$a[0]' ), - "aaa", 'DESTROY called on array elem' + "aaa\n", 'DESTROY called on array elem' ); is( runperl( stderr => 1, - prog => '{ bless \my@x; *a=sub{@x}}sub DESTROY { print q-aaa- }' + prog => '{ bless \my@x; *a=sub{@x}}sub DESTROY { print qq-aaa\n- }' ), - "aaa", + "aaa\n", 'DESTROY called on closure variable' ); -- cgit v1.2.1