return PL_sv_undef for empty strings, as in the old perl library
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7940 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
28df9d1049
commit
0a98e76136
1 changed files with 1 additions and 1 deletions
|
|
@ -53,7 +53,7 @@ SWIG_FromCharPtrAndSize(const char* carray, size_t size)
|
|||
%delete_array(tmp);
|
||||
}
|
||||
} else {
|
||||
sv_setpv(obj, "");
|
||||
sv_setsv(obj, &PL_sv_undef);
|
||||
}
|
||||
return obj;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue