diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-30 09:03:48 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-30 09:03:48 +0000 |
| commit | 4bd3d0834986b2de5ee920a43735f0b9a242127c (patch) | |
| tree | 1e687654f039baeb3fbb0e4abbf64aa74341e013 | |
| parent | 6771324e8cd1e115a7bce4b59e23d9929549e229 (diff) | |
| download | perl-4bd3d0834986b2de5ee920a43735f0b9a242127c.tar.gz | |
remove prehistoric XFree() gunk
p4raw-id: //depot/perl@4255
| -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 e5c7e0989e..a9004f6505 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1405,7 +1405,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 |