diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2018-12-29 14:10:41 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2018-12-29 14:15:59 +0000 |
commit | b1178cf130e86435c9109f0c0c056077884fd026 (patch) | |
tree | c928038b417d0af3dda049d1d3b88a3893d0c4b7 /Lib/perl5 | |
parent | d14c97408ddee10fb10f967ffc520a92ee1eccf8 (diff) | |
download | swig-b1178cf130e86435c9109f0c0c056077884fd026.tar.gz |
Fix overloading for non-pointers and NULL - Perl
Diffstat (limited to 'Lib/perl5')
-rw-r--r-- | Lib/perl5/perlrun.swg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg index 02714c451..b04002f5d 100644 --- a/Lib/perl5/perlrun.swg +++ b/Lib/perl5/perlrun.swg @@ -277,7 +277,7 @@ SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_ voidptr = INT2PTR(void *,tmp); } else if (! SvOK(sv)) { /* Check for undef */ *(ptr) = (void *) 0; - return SWIG_OK; + return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK; } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */ if (!SvROK(sv)) { /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */ |