diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-12-18 00:16:42 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2005-12-18 00:16:42 +0000 |
| commit | e9e3be284fa3b373520899b5109edb0548c7d833 (patch) | |
| tree | a0ff94239cb937fde783b90d98cbc23b508566a0 /t/op/goto.t | |
| parent | f4b190e604dfeb3b326a17a85144eca8e832729d (diff) | |
| download | perl-e9e3be284fa3b373520899b5109edb0548c7d833.tar.gz | |
Two test workarounds for VMS
p4raw-id: //depot/perl@26396
Diffstat (limited to 't/op/goto.t')
| -rwxr-xr-x | t/op/goto.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index 082a165574..a034682ec1 100755 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -416,16 +416,16 @@ a32039(); my $r = runperl( stderr => 1, prog => -'for ($_=0;$_<3;$_++){A: if($_==1){next} if($_==2){$_++;goto A}}print qq(ok)' +'for ($_=0;$_<3;$_++){A: if($_==1){next} if($_==2){$_++;goto A}}print qq(ok\n)' ); - is($r, "ok", 'next and goto'); + is($r, "ok\n", 'next and goto'); $r = runperl( stderr => 1, prog => -'for ($_=0;$_<3;$_++){A: if($_==1){$_++;redo} if($_==2){$_++;goto A}}print qq(ok)' +'for ($_=0;$_<3;$_++){A: if($_==1){$_++;redo} if($_==2){$_++;goto A}}print qq(ok\n)' ); - is($r, "ok", 'redo and goto'); + is($r, "ok\n", 'redo and goto'); } # goto &foo not allowed in evals |