fix perl C errors
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8481 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
7ec34f87af
commit
9d50efa32e
2 changed files with 4 additions and 7 deletions
|
|
@ -209,8 +209,8 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *
|
|||
|
||||
/* Check to see if this is an object */
|
||||
if (sv_isobject(sv)) {
|
||||
tsv = (SV*) SvRV(sv);
|
||||
IV tmp = 0;
|
||||
tsv = (SV*) SvRV(sv);
|
||||
if ((SvTYPE(tsv) == SVt_PVHV)) {
|
||||
MAGIC *mg;
|
||||
if (SvMAGICAL(tsv)) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue