diff options
author | Tony Cook <tony@develop-help.com> | 2021-09-06 15:09:49 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-09-13 10:05:02 +1000 |
commit | 83b243fa48968f4349136fe6943f0c21313b217e (patch) | |
tree | 4efd832bfd2f8727899ff001e077648b9a24c49b /lib | |
parent | ade1dcccb274812424b79cdbce70a7110d5285a7 (diff) | |
download | perl-83b243fa48968f4349136fe6943f0c21313b217e.tar.gz |
test and fix using T_HVREF_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 0c943ef73f..4cedca4025 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -327,7 +327,7 @@ T_AVREF_REFCOUNT_FIXED T_HVREF $arg = newRV((SV*)$var); T_HVREF_REFCOUNT_FIXED - $arg = newRV_noinc((SV*)$var); + ${ "$var" eq "RETVAL" ? \"$arg = newRV_noinc((SV*)$var);" : \"sv_setrv_noinc($arg, (SV*)$var);" } T_CVREF $arg = newRV((SV*)$var); T_CVREF_REFCOUNT_FIXED |