diff options
author | Tony Cook <tony@develop-help.com> | 2021-09-06 14:29:45 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-09-13 10:05:02 +1000 |
commit | f0abb35079fb598ed88ef367d405fdd698a736d6 (patch) | |
tree | 55f1e7f54b0af0d7322f88d1b8e2b04ec2010961 /lib | |
parent | 42510d5ab1dca0720ccf23ac6156d1d54aa971b5 (diff) | |
download | perl-f0abb35079fb598ed88ef367d405fdd698a736d6.tar.gz |
test and fix using T_SV 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 8aa1e12135..adac80fd1c 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -315,7 +315,7 @@ T_OUT ############################################################################# OUTPUT T_SV - $arg = $var; + ${ "$var" eq "RETVAL" ? \"$arg = $var;" : \"sv_setsv_mg($arg, $var);" } T_SVREF $arg = newRV((SV*)$var); T_SVREF_REFCOUNT_FIXED |