fix line continuations in argument lists (from Helmut Jarausch)

p4raw-id: //depot/perl@4843

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index ff9b452..4fedd3b 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -995,7 +995,9 @@ while (fetch_para()) {
     %XsubAliases = %XsubAliasValues = %Interfaces = ();
     $DoSetMagic = 1;
 
-    @args = split(/\s*,\s*/, $orig_args);
+    my $temp_args = $orig_args;
+    $temp_args =~ s/\\\s*//g;
+    @args = split(/\s*,\s*/, $temp_args);
     if (defined($class)) {
        my $arg0 = ((defined($static) or $func_name eq 'new')
                    ? "CLASS" : "THIS");