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/ExtUtils | |
parent | 83b243fa48968f4349136fe6943f0c21313b217e (diff) | |
download | perl-b61667640189f6de8d03dd67faf4f19915834bb4.tar.gz |
test and fix using T_AVREF_REFCOUNT as an output parameter
Diffstat (limited to 'lib/ExtUtils')
-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 |