diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-03-31 15:32:43 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 02:02:32 +0000 |
| commit | 50a63b21cf78090f08412144f4af089922f60e2d (patch) | |
| tree | eab69546cc9e2179bb2fb23d46710156d4a6e949 /lib/ExtUtils | |
| parent | 9ffc0d0ca0c35554a289b28c7e560047a6ed8b3b (diff) | |
| download | perl-50a63b21cf78090f08412144f4af089922f60e2d.tar.gz | |
Re: 14986 xsubpp patch broke Unicode::Map8
Message-Id: <200204010132.UAA14443@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@15644
Diffstat (limited to 'lib/ExtUtils')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 55dd1a4123..284279afd7 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -261,7 +261,7 @@ foreach $typemap (@tm) { } foreach $key (keys %input_expr) { - $input_expr{$key} =~ s/\n+$//; + $input_expr{$key} =~ s/;*\s+\z//; } $bal = qr[(?:(?>[^()]+)|\((??{ $bal })\))*]; # ()-balanced |