From ea94a4a0bd012f6303ebec89765fe4ecf1c4f5f7 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 26 Aug 2004 21:15:41 +0000
Subject: [PATCH] Patch from Ikegami Tsutomu to fix long long *OUTPUT and
 unsigned long long *OUTPUT typemaps

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6156 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/perl5/typemaps.i | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Lib/perl5/typemaps.i b/Lib/perl5/typemaps.i
index bcf85d9f7..455e30f37 100644
--- a/Lib/perl5/typemaps.i
+++ b/Lib/perl5/typemaps.i
@@ -206,7 +206,7 @@ output values.
     if (argvi >= items) {
 	EXTEND(sp,1);
     }
-    sprintf(temp,"%lld", $1);
+    sprintf(temp,"%lld", *($1));
     $result = sv_newmortal();
     sv_setpv($result,temp);
     argvi++;
@@ -217,7 +217,7 @@ output values.
     if (argvi >= items) {
 	EXTEND(sp,1);
     }
-    sprintf(temp,"%llu", $1);
+    sprintf(temp,"%llu", *($1));
     $result = sv_newmortal();
     sv_setpv($result,temp);
     argvi++;