Teach lib/warnings.t about Borland CRT error messages

p4raw-id: //depot/perl@24870

diff --git a/lib/warnings.t b/lib/warnings.t
index f23d9e6..2143b4d 100644 (file)
--- 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)