From ec4491556fd698d0e973c47586dc76cee85c7b68 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Sat, 5 Apr 2008 21:04:11 +0000
Subject: [PATCH] workaround for Perl5 on OSX including math.h somewhere

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10352 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/test-suite/member_pointer.i | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Examples/test-suite/member_pointer.i b/Examples/test-suite/member_pointer.i
index e3ba5943f..f03528cd5 100644
--- a/Examples/test-suite/member_pointer.i
+++ b/Examples/test-suite/member_pointer.i
@@ -50,7 +50,7 @@ extern double (Shape::*perimetervar)(void);
 %}
 
 %{
-#  define M_PI 3.14159265358979323846
+#  define SWIG_M_PI 3.14159265358979323846
 
 /* Move the shape to a new location */
 void Shape::move(double dx, double dy) {
@@ -61,11 +61,11 @@ void Shape::move(double dx, double dy) {
 int Shape::nshapes = 0;
 
 double Circle::area(void) {
-  return M_PI*radius*radius;
+  return SWIG_M_PI*radius*radius;
 }
 
 double Circle::perimeter(void) {
-  return 2*M_PI*radius;
+  return 2*SWIG_M_PI*radius;
 }
 
 double Square::area(void) {