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 /lib/ExtUtils/xsubpp | |
| parent | 6771324e8cd1e115a7bce4b59e23d9929549e229 (diff) | |
| download | perl-4bd3d0834986b2de5ee920a43735f0b9a242127c.tar.gz | |
remove prehistoric XFree() gunk
p4raw-id: //depot/perl@4255
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |