25 lines
696 B
Diff
25 lines
696 B
Diff
---
|
|
Lib/perl5/perlprimtypes.swg | 4 ++--
|
|
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
|
--- Lib/perl5/perlprimtypes.swg.orig
|
|
+++ Lib/perl5/perlprimtypes.swg
|
|
@@ -111,7 +111,7 @@ SWIG_AsVal_dec(unsigned long)(SV *obj, u
|
|
if (val) *val = SvUV(obj);
|
|
return SWIG_OK;
|
|
} else if (SvIOK(obj)) {
|
|
- long v = SvIV(obj);
|
|
+ long long v = SvIV(obj);
|
|
if (v >= 0) {
|
|
if (val) *val = v;
|
|
return SWIG_OK;
|
|
@@ -246,7 +246,7 @@ SWIG_AsVal_dec(unsigned long long)(SV *o
|
|
if (val) *val = SvUV(obj);
|
|
return SWIG_OK;
|
|
} else if (SvIOK(obj)) {
|
|
- long v = SvIV(obj);
|
|
+ long long v = SvIV(obj);
|
|
if (v >= 0) {
|
|
if (val) *val = v;
|
|
return SWIG_OK;
|