jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Backed out #1798728 due to regression pointed out by Josh Cherry on swig-user

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10196 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-12-16 21:51:10 +00:00
commit 54e6571299
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGES.current
View file

@ -1,6 +1,9 @@
Version 1.3.34 (in progress) Version 1.3.34 (in progress)
============================ ============================
12/16/2007: wsfulton
[Perl] Backed out #1798728 - numbers can be passed to functions taking char *
12/16/2007: wsfulton 12/16/2007: wsfulton
Fix #1832613 - Templates and some typedefs involving pointers or function pointers Fix #1832613 - Templates and some typedefs involving pointers or function pointers

2
Lib/perl5/perlstrings.swg
View file

@ -6,7 +6,7 @@
SWIGINTERN int SWIGINTERN int
SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc) SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
{ {
if (SvOK(obj)) { if (SvPOK(obj)) {
STRLEN len = 0; STRLEN len = 0;
char *cstr = SvPV(obj, len); char *cstr = SvPV(obj, len);
size_t size = len + 1; size_t size = len + 1;