From: Steve Hay <SteveHay@planit.com>
Date: Thu, 16 Jun 2005 13:16:56 +0000 (+0000)
Subject: Teach lib/warnings.t about Borland CRT error messages
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dea61d9463d40d400a2f349f672ec0d9dcba752;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)