a somewhat tweaked version of suggested patch

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / xsubpp

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 3463e00..6db993c 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -390,7 +390,7 @@ sub INPUT_handler {
          if ($name_printed) {
            print ";\n";
          } else {
-           print "\t$var_name_after;\n";
+           print "\t$var_name;\n";
          }
        } elsif ($var_init =~ /\S/) {
            &output_init($var_type, $var_num, $var_name, $var_init, $name_printed);
@@ -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