diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-08-15 14:27:09 -0500 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-08-16 11:36:25 +0100 |
| commit | 0bd1c8c5e0428f0a7e4ed1da202a144ce822b0c2 (patch) | |
| tree | ac911de4adcfc57722120cdae84c2ff8a1b921e0 | |
| parent | ea6014d87850fa4eb32af55132e55b2ab7ee6008 (diff) | |
| download | perl-0bd1c8c5e0428f0a7e4ed1da202a144ce822b0c2.tar.gz | |
Suppress system messages when op/ref.t calls die on VMS.
(cherry picked from commit 54c717c31383ee341b51465df1a84524ff7245b5)
| -rw-r--r-- | t/op/ref.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index 9ef7b7adfc..a98da6e5a2 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -588,9 +588,10 @@ ok (!eval { $rpvbm->foo }, 'PVBM is not an object'); is( runperl(stderr => 1, prog => 'map eval qq(exit),1 for 1'), ""); is( runperl(stderr => 1, prog => 'eval { for (1) { map { die } 2 } };'), ""); is( runperl(stderr => 1, prog => 'for (125) { map { exit } (213)}'), ""); -is( runperl(stderr => 1, prog => 'map die,4 for 3'), "Died at -e line 1.\n"); -is( runperl(stderr => 1, prog => 'grep die,4 for 3'), "Died at -e line 1.\n"); -is( runperl(stderr => 1, prog => 'for $a (3) {@b=sort {die} 4,5}'), "Died at -e line 1.\n"); +my $hushed = $^O eq 'VMS' ? 'use vmsish qw(hushed);' : ''; +is( runperl(stderr => 1, prog => $hushed . 'map die,4 for 3'), "Died at -e line 1.\n"); +is( runperl(stderr => 1, prog => $hushed . 'grep die,4 for 3'), "Died at -e line 1.\n"); +is( runperl(stderr => 1, prog => $hushed . 'for $a (3) {@b=sort {die} 4,5}'), "Died at -e line 1.\n"); # bug 57564 is( runperl(stderr => 1, prog => 'my $i;for $i (1) { for $i (2) { } }'), ""); |