From 425ce98b1d27d64d2e1b32ee8910bc369bb508e4 Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Thu, 21 Oct 2004 19:15:14 +0000
Subject: [PATCH] fix default varin typemap

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

diff --git a/SWIG/Lib/perl5/perl5.swg b/SWIG/Lib/perl5/perl5.swg
index 3e5da4f9a..5b600e8e2 100644
--- a/SWIG/Lib/perl5/perl5.swg
+++ b/SWIG/Lib/perl5/perl5.swg
@@ -246,7 +246,7 @@
         if (SWIG_ConvertPtr($input, (void **) &$1, $1_descriptor,0) < 0) {
             croak("Type error in argument $argnum of $symname. Expected $1_mangle");
         }
-        $1 = *($1_ltype) temp;
+        $1 = ($1_ltype) temp;
 }
 
 %typemap(varin) SWIGTYPE [ANY] {