summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-06-17 11:36:45 +0000
committerSteve Hay <SteveHay@planit.com>2005-06-17 11:36:45 +0000
commit3a00b83ed94a188580921b4677320b4295bee93d (patch)
tree607ba76c867985a19441c8cde816c392581f2993 /win32
parentf6342b4b53f678226f6ef9a63cf476fbf96744f4 (diff)
downloadperl-3a00b83ed94a188580921b4677320b4295bee93d.tar.gz
Silence STDERR grumblings from Borland's math library.
This fixes failures in ext/B/t/deparse.t and lib/warnings.t (and renders change 24870 obsolete, hence it is reverted here). p4raw-id: //depot/perl@24883
Diffstat (limited to 'win32')
-rw-r--r--win32/win32.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c
index 8f1a8ac67a..21e04244b2 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -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)
{