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++;