diff options
| author | Craig A. Berry <craigberry@mac.com> | 2013-09-19 16:17:00 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2013-09-19 16:27:30 -0500 |
| commit | cb7db7093e62164313d8e0a79d54c36ada756f1d (patch) | |
| tree | 6ee415f8f3112ef529e248e6e0d0d0dbc8799efd /t | |
| parent | 3fdff478504d7ab357a92849fcb38456ee1e4fb4 (diff) | |
| download | perl-cb7db7093e62164313d8e0a79d54c36ada756f1d.tar.gz | |
Add newline to new switchd test for VMS.
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.
Diffstat (limited to 't')
| -rw-r--r-- | t/run/switchd.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/switchd.t b/t/run/switchd.t index e71de68726..e66a17fa64 100644 --- a/t/run/switchd.t +++ b/t/run/switchd.t @@ -205,9 +205,9 @@ like( 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" ); |