diff options
| author | Tony Cook <tony@develop-help.com> | 2021-09-06 15:21:06 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2021-09-13 10:05:02 +1000 |
| commit | b61667640189f6de8d03dd67faf4f19915834bb4 (patch) | |
| tree | 5937a562665a6241e973315fc176b25281da31d5 /lib | |
| parent | 83b243fa48968f4349136fe6943f0c21313b217e (diff) | |
| download | perl-b61667640189f6de8d03dd67faf4f19915834bb4.tar.gz | |
test and fix using T_AVREF_REFCOUNT as an output parameter
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/typemap | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 4cedca4025..239514b785 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -323,7 +323,7 @@ T_SVREF_REFCOUNT_FIXED T_AVREF $arg = newRV((SV*)$var); T_AVREF_REFCOUNT_FIXED - $arg = newRV_noinc((SV*)$var); + ${ "$var" eq "RETVAL" ? \"$arg = newRV_noinc((SV*)$var);" : \"sv_setrv_noinc($arg, (SV*)$var);" } T_HVREF $arg = newRV((SV*)$var); T_HVREF_REFCOUNT_FIXED |