diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2010-08-17 19:10:14 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2010-08-17 19:10:14 +0000 |
commit | 8f8804b7a1b949786c6366494786efb14ea8713a (patch) | |
tree | 828208b8a1dd2ae888f837662c7dad63acf94401 /Lib/perl5 | |
parent | 1c8618d6355f3d246dd7b7b986454672d1092430 (diff) | |
download | swig-8f8804b7a1b949786c6366494786efb14ea8713a.tar.gz |
Fix corner case marshalling of doubles - errno was not being correctly set before calling strtod - patch from Justin Vallon
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12190 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/perl5')
-rw-r--r-- | Lib/perl5/perlprimtypes.swg | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Lib/perl5/perlprimtypes.swg b/Lib/perl5/perlprimtypes.swg index ae7bb3886..f2a614030 100644 --- a/Lib/perl5/perlprimtypes.swg +++ b/Lib/perl5/perlprimtypes.swg @@ -311,6 +311,7 @@ SWIG_AsVal_dec(double)(SV *obj, double *val) const char *nptr = SvPV_nolen(obj); if (nptr) { char *endptr; + errno = 0; double v = strtod(nptr, &endptr); if (errno == ERANGE) { errno = 0; |