diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-09-05 12:48:54 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-05 22:43:26 +0000 |
| commit | 765ebaf25db8c75bb3c9aa615725c4ab6cf615ec (patch) | |
| tree | 5bdcf2be21f2d8231c3d270aee61845e4e59b8bb /t/run | |
| parent | f8d0fd749c2c5cc68be89616233b24982e69f7de (diff) | |
| download | perl-765ebaf25db8c75bb3c9aa615725c4ab6cf615ec.tar.gz | |
tweak warnings.t and kill_perl.t for VMS
Message-Id: <5.1.0.14.0.20010905145002.02b45218@exchi01>
p4raw-id: //depot/perl@11894
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/kill_perl.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index 07df0485ca..fa3bbec664 100644 --- a/t/run/kill_perl.t +++ b/t/run/kill_perl.t @@ -89,7 +89,13 @@ foreach my $prog (@prgs) { # various yaccs may or may not capitalize 'syntax'. $results =~ s/^(syntax|parse) error/syntax error/mig; - $results =~ s/\n\n/\n/ if $^O eq 'VMS'; # pipes double these sometimes + if ($^O eq 'VMS') { + # some tests will trigger VMS messages that won't be expected + $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//; + + # pipes double these sometimes + $results =~ s/\n\n/\n/g; + } $expected =~ s/\n+$//; my $ok = $results eq $expected; |