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 /lib | |
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 'lib')
-rw-r--r-- | lib/warnings.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index adc3ec9b75..d234a98f77 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -101,7 +101,13 @@ for (@prgs){ $results =~ s/\n+$//; # allow expected output to be written as if $prog is on STDIN $results =~ s/tmp\d+/-/g; - $results =~ s/\n%[A-Z]+-[SIWEF]-.*$// if $Is_VMS; # clip off DCL status msg + 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; + } # bison says 'parse error' instead of 'syntax error', # various yaccs may or may not capitalize 'syntax'. $results =~ s/^(syntax|parse) error/syntax error/mig; |