diff options
author | Tony Cook <tony@develop-help.com> | 2021-09-06 14:50:48 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-09-13 10:05:02 +1000 |
commit | ade1dcccb274812424b79cdbce70a7110d5285a7 (patch) | |
tree | 5de2e06484f4a08eb4e3b5b15e124b25b56d55d6 /lib | |
parent | 6c168fa48629feec620455099a41f5a9dbf63d3b (diff) | |
download | perl-ade1dcccb274812424b79cdbce70a7110d5285a7.tar.gz |
test and fix using T_SVREF_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 adac80fd1c..0c943ef73f 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -319,7 +319,7 @@ T_SV T_SVREF $arg = newRV((SV*)$var); T_SVREF_REFCOUNT_FIXED - $arg = newRV_noinc((SV*)$var); + ${ "$var" eq "RETVAL" ? \"$arg = newRV_noinc((SV*)$var);" : \"sv_setrv_noinc($arg, (SV*)$var);" } T_AVREF $arg = newRV((SV*)$var); T_AVREF_REFCOUNT_FIXED |