From 9e68d28c9f6738165615ee19339f227da7218cd8 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Fri, 18 Aug 2000 20:12:17 +0000
Subject: [PATCH] Added SWIG_MakePtr() and made other fixes.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@676 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perl5.swg | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/SWIG/Lib/perl5/perl5.swg b/SWIG/Lib/perl5/perl5.swg
index e2d3bd25a..bfd163fb4 100644
--- a/SWIG/Lib/perl5/perl5.swg
+++ b/SWIG/Lib/perl5/perl5.swg
@@ -65,10 +65,14 @@ extern "C" {
 
 #ifndef PERL_OBJECT
 extern int SWIG_ConvertPtr(SV *, void **, _swig_type_info *);
+extern void SWIG_MakePtr(SV *, void *, _swig_type_info *);
 #else
 extern int _SWIG_ConvertPtr(CPerlObj *, SV *, void **, _swig_type_info *);
+extern void _SWIG_MakePtr(CPerlObj *, SV *, void *, _swig_type_info *);
 #define SWIG_ConvertPtr(a,b,c) _SWIG_ConvertPtr(pPerl,a,b,c)
+#define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c)
 #endif
+
 #endif
 
 /* Function for getting a pointer value */
@@ -78,7 +82,7 @@ SWIGSTATICRUNTIME(int)
 SWIG_ConvertPtr(SV *sv, void **ptr, _swig_type_info *_t)
 #else
 #define SWIG_ConvertPtr(a,b,c) _SWIG_GetConvert(pPerl,a,b,c)
-SWIGSTATICRUNTIME(int *)
+SWIGSTATICRUNTIME(int)
 _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, _swig_type_info *_t)
 #endif
 {
@@ -140,6 +144,17 @@ _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, _swig_type_info *_t)
   *ptr = (void *) tmp;
   return 0;
 }
+#ifndef PERL_OBJECT
+SWIGSTATICRUNTIME(void) 
+SWIG_MakePtr(SV *sv, void *ptr, _swig_type_info *t)
+#else
+#define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c)
+SWIGSTATICRUNTIME(int *)
+_SWIG_MakePtr(CPerlObj *pPerl, SV *sv, void *ptr, _swig_type_info *t)
+#endif
+{
+  sv_setref_pv(sv, t->name, ptr);
+}
 
 /* Magic variable code */
 #ifndef PERL_OBJECT