Force a newline in new attrs.t test.
authorCraig A. Berry <[email protected]>
Fri, 9 Sep 2016 19:05:38 +0000 (14:05 -0500)
committerCraig A. Berry <[email protected]>
Fri, 9 Sep 2016 19:05:38 +0000 (14:05 -0500)
VMS is going to give you newline at EOF willy nilly, so make it
explicit and match expectations everywhere.

t/op/attrs.t

index 5e3125f..13359bf 100644 (file)
@@ -455,17 +455,17 @@ package P126257 {
 
 is runperl(
        prog => 'package Foo; sub MODIFY_CODE_ATTRIBUTES {()} '
-             . 'sub BEGIN :Foo; print q{OK}',
+             . 'sub BEGIN :Foo; print qq{OK\n}',
        stderr => 1,
    ),
-   "OK",
+   "OK\n",
   'RT #129099 BEGIN';
 is runperl(
        prog => 'package Foo; sub MODIFY_CODE_ATTRIBUTES {()} '
-             . 'no warnings q{prototype}; sub BEGIN() :Foo; print q{OK}',
+             . 'no warnings q{prototype}; sub BEGIN() :Foo; print qq{OK\n}',
        stderr => 1,
    ),
-   "OK",
+   "OK\n",
   'RT #129099 BEGIN()';