From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 30 Sep 1999 09:03:48 +0000 (+0000)
Subject: remove prehistoric XFree() gunk
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bd3d0834986b2de5ee920a43735f0b9a242127c;p=p5sagit%2Fp5-mst-13.2.git

remove prehistoric XFree() gunk

p4raw-id: //depot/perl@4255
---

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index d84435e..a34cd4f 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 e5c7e09..a9004f6 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