diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-01 12:05:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-01 12:05:56 +0000 |
| commit | b3c0bf3602cfb95d459cdd04ae7ddfd23779e14e (patch) | |
| tree | 68089685c059116b52d4330c912a24ccf7cbc94f /lib/ExtUtils | |
| parent | b2f5ed49123019744d7a7be15208a7e98e095dd0 (diff) | |
| parent | a80b8354f5981907f826ef236ecd80cb746b2ace (diff) | |
| download | perl-b3c0bf3602cfb95d459cdd04ae7ddfd23779e14e.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4270
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/typemap | 2 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index d84435e50f..a34cd4f9ea 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -251,7 +251,7 @@ T_REFOBJ T_OPAQUE sv_setpvn($arg, (char *)&$var, sizeof($var)); T_OPAQUEPTR - sv_setpvn($arg, (char *)$var, sizeof(*$var)), XFree((char *)$var); + sv_setpvn($arg, (char *)$var, sizeof(*$var)); T_PACKED XS_pack_$ntype($arg, $var); T_PACKEDARRAY diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index a8508b38c3..6db993c521 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1436,7 +1436,7 @@ sub generate_output { $type = TidyType($type) ; if ($type =~ /^array\(([^,]*),(.*)\)/) { - print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1)), XFree((char *)$var);\n"; + print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n"; print "\tSvSETMAGIC($arg);\n" if $do_setmagic; } else { blurt("Error: '$type' not in typemap"), return |