diff options
Diffstat (limited to 'Lib/perl5/perlprimtypes.swg')
-rw-r--r-- | Lib/perl5/perlprimtypes.swg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lib/perl5/perlprimtypes.swg b/Lib/perl5/perlprimtypes.swg index 4cb675671..d3bec4bd4 100644 --- a/Lib/perl5/perlprimtypes.swg +++ b/Lib/perl5/perlprimtypes.swg @@ -179,7 +179,7 @@ SWIG_From_dec(long long)(long long value) else { //sv = newSVpvf("%lld", value); doesn't work in non 64bit Perl char temp[256]; - sprintf(temp, "%lld", value); + SWIG_snprintf(temp, sizeof(temp), "%lld", value); sv = newSVpv(temp, 0); } return sv_2mortal(sv); @@ -259,7 +259,7 @@ SWIG_From_dec(unsigned long long)(unsigned long long value) else { //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl char temp[256]; - sprintf(temp, "%llu", value); + SWIG_snprintf(temp, sizeof(temp), "%llu", value); sv = newSVpv(temp, 0); } return sv_2mortal(sv); |