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.

1 files changed, 4 insertions, 4 deletions

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'
 );