On VMS, you're going to get a newline at EOF willy nilly, which
was making the expected output fail to match the actual output.
The simplest solution is just to put an explicit newline on the
print statement, which yields the same result everywhere.
Follow-up to
261cbad16f5ed8.
is(
runperl(
switches => [ '-Ilib', '-d:switchd_goto' ],
- prog => 'sub baz { print qq|hello;| } sub foo { goto &baz } foo()',
+ prog => 'sub baz { print qq|hello;\n| } sub foo { goto &baz } foo()',
stderr => 1,
),
- "goto<main::baz>;hello;",
+ "goto<main::baz>;hello;\n",
"DB::goto"
);