From 38e568e602a434b2cbf570fe587d63e48d9ec7ba Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Sun, 17 Oct 2004 09:49:24 +0000
Subject: [PATCH] fix lon long + apply + SwigValueWrapper

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

diff --git a/Lib/perl5/perl5.swg b/Lib/perl5/perl5.swg
index 4b7a68e51..71e2ce7ff 100644
--- a/Lib/perl5/perl5.swg
+++ b/Lib/perl5/perl5.swg
@@ -126,14 +126,14 @@
 
 %typemap(out) long long {
     char temp[256];
-    sprintf(temp,"%lld", $1);
+    sprintf(temp,"%lld", (long long) $1);
     ST(argvi) = sv_newmortal();
     sv_setpv((SV*)ST(argvi++), temp);
 }
 
 %typemap(out) unsigned long long {
     char temp[256];
-    sprintf(temp,"%llu", $1);
+    sprintf(temp,"%llu", (unsigned long long) $1);
     ST(argvi) = sv_newmortal();
     sv_setpv((SV*)ST(argvi++), temp);
 }