[perl5.git] / qnx / qnx.c

/* If we're compiling with watcom, we want to silence domain errors */
#if defined(__QNX__) && defined(__WATCOMC__)
#include <math.h>

/* Return default value and print no error message */
int matherr( struct exception *err )
  {
	return 1;
  }

#endif
Commit	Line	Data
be8a15fc AG	1	/* If we're compiling with watcom, we want to silence domain errors */
	2	#if defined(__QNX__) && defined(__WATCOMC__)
	3	#include <math.h>
	4
	5	/* Return default value and print no error message */
	6	int matherr( struct exception *err )
	7	{
	8	return 1;
	9	}
	10
	11	#endif