diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 12:42:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-22 12:42:40 +0000 |
| commit | b7e88d4403a3f62fd94b9397a3275f2e7d3f7928 (patch) | |
| tree | 7939db6e523a2a78a6090883ed62f39e0b6d2749 /lib | |
| parent | ffd2dff2e01ae9b3aa6cf87f762201cc006553e8 (diff) | |
| download | perl-b7e88d4403a3f62fd94b9397a3275f2e7d3f7928.tar.gz | |
fix line continuations in argument lists (from Helmut Jarausch)
p4raw-id: //depot/perl@4843
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index ff9b452caf..4fedd3bb41 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"); |