This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence STDERR grumblings from Borland's math library.
[perl5.git] / win32 / win32.c
index 8f1a8ac..21e0424 100644 (file)
@@ -117,6 +117,16 @@ static DWORD       w32_platform = (DWORD)-1;
 
 #define ONE_K_BUFSIZE  1024
 
+#ifdef __BORLANDC__
+/* Silence STDERR grumblings from Borland's math library. */
+DllExport int
+_matherr(struct _exception *a)
+{
+    PERL_UNUSED_VAR(a);
+    return 1;
+}
+#endif
+
 int
 IsWin95(void)
 {