Author: dagolden
Date: Thu Jul 23 19:56:20 2009
New Revision: 13111
Modified:
ExtUtils-ParseXS/trunk/Changes
ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
Log:
added newline before preprocessor directive (RT#30673)
Modified: ExtUtils-ParseXS/trunk/Changes
==============================================================================
--- ExtUtils-ParseXS/trunk/Changes (original)
+++ ExtUtils-ParseXS/trunk/Changes Thu Jul 23 19:56:20 2009
@@ -2,6 +2,10 @@
2.20_03 -
+ Bug fixes:
+ - Added newline before a preprocessor directive (RT#30673)
+ [patch by hjp]
+
2.2002 - Sat Jul 18 17:22:27 EDT 2009
Bug fixes:
Modified: ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
==============================================================================
--- ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm (original)
+++ ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm Thu Jul 23 19:56:20 2009
@@ -555,7 +555,7 @@
my $arg0 = ((defined($static) or $func_name eq 'new')
? "CLASS" : "THIS");
unshift(@args, $arg0);
- ($report_args = "$arg0, $report_args") =~ s/^\w+, $/$arg0/;
+# ($report_args = "$arg0, $report_args") =~ s/^\w+, $/$arg0/;
}
my $extra_args = 0;
@args_num = ();
@@ -1160,7 +1160,7 @@
print "\tSTRLEN\tSTRLEN_length_of_$2;\n";
$lengthof{$2} = $name;
# $islengthof{$name} = $1;
- $deferred .= "\n\tXSauto_length_of_$2 = STRLEN_length_of_$2;";
+ $deferred .= "\n\tXSauto_length_of_$2 = STRLEN_length_of_$2;\n";
}
# check for optional initialisation code
