From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 22 Jan 2000 12:42:40 +0000 (+0000)
Subject: fix line continuations in argument lists (from Helmut Jarausch)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7e88d4403a3f62fd94b9397a3275f2e7d3f7928;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");