From 5c8f751e804b07d41cfc4b95eb12811bdc3d44d0 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 10 Nov 2005 21:19:05 +0000
Subject: [PATCH] Add code back in that has recently gone missing, needed for
 windows

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7838 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perlrun.swg     |  2 +-
 SWIG/Lib/perl5/perlruntime.swg | 15 ++++++++++++---
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/SWIG/Lib/perl5/perlrun.swg b/SWIG/Lib/perl5/perlrun.swg
index 883359835..321f588bc 100644
--- a/SWIG/Lib/perl5/perlrun.swg
+++ b/SWIG/Lib/perl5/perlrun.swg
@@ -1,7 +1,7 @@
 /***********************************************************************
  * perlrun.swg
  *
- *     This file contains the runtime support for Ruby modules
+ *     This file contains the runtime support for Perl modules
  *     and includes code for managing global variables and pointer
  *     type checking.
  *
diff --git a/SWIG/Lib/perl5/perlruntime.swg b/SWIG/Lib/perl5/perlruntime.swg
index 691a9a67f..1aed9c4d1 100644
--- a/SWIG/Lib/perl5/perlruntime.swg
+++ b/SWIG/Lib/perl5/perlruntime.swg
@@ -1,14 +1,23 @@
 %insert(runtime) %{
 
-#include <EXTERN.h>
-#include <perl.h>
-#include <XSUB.h>
+#ifdef __cplusplus
+/* Needed on some windows machines---since MS plays funny games with the header files under C++ */
+#include <math.h>
+#include <stdlib.h>
+extern "C" {
+#endif
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
 
 #ifndef pTHX_
 #define pTHX_
 #endif
 
 #include <string.h>
+#ifdef __cplusplus
+}
+#endif
 
 /* Macro to call an XS function */