diff options
author | Tony Cook <tony@develop-help.com> | 2021-09-06 15:33:19 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-09-13 10:05:02 +1000 |
commit | 2adc92a0e8937b18cd278515281fd462a5edf08e (patch) | |
tree | e8e934f1f78a7bea3eb586aa1d43fa53a5f117cb /lib | |
parent | b61667640189f6de8d03dd67faf4f19915834bb4 (diff) | |
download | perl-2adc92a0e8937b18cd278515281fd462a5edf08e.tar.gz |
test and fix using T_CVREF_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 239514b785..a07e83f901 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -331,7 +331,7 @@ T_HVREF_REFCOUNT_FIXED T_CVREF $arg = newRV((SV*)$var); T_CVREF_REFCOUNT_FIXED - $arg = newRV_noinc((SV*)$var); + ${ "$var" eq "RETVAL" ? \"$arg = newRV_noinc((SV*)$var);" : \"sv_setrv_noinc($arg, (SV*)$var);" } T_IV sv_setiv($arg, (IV)$var); T_UV |