diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-06-16 13:16:56 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-06-16 13:16:56 +0000 |
| commit | 0dea61d9463d40d400a2f349f672ec0d9dcba752 (patch) | |
| tree | 7e53dbfae8b40323ecc7d3f89a9a774e3ecc6022 /lib/warnings.t | |
| parent | 1561aefcccc1dd2d9a089d90d0ecea4315c5d0f3 (diff) | |
| download | perl-0dea61d9463d40d400a2f349f672ec0d9dcba752.tar.gz | |
Teach lib/warnings.t about Borland CRT error messages
p4raw-id: //depot/perl@24870
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index f23d9e67f8..2143b4ded1 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -137,6 +137,11 @@ for (@prgs){ $results =~ s|:abc(d)?\b|./abc$1|g; } + # Borland compiler whines about DOMAIN errors for some "uninit" tests + if ($^O eq 'MSWin32' and $Config{ccname} =~ /bcc32/) { + $results =~ s|\n\n\w+: DOMAIN error||g; + } + $expected =~ s/\n+$//; my $prefix = ($results =~ s#^PREFIX(\n|$)##) ; # any special options? (OPTIONS foo bar zap) |