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] {