Re: 14986 xsubpp patch broke Unicode::Map8
authorSpider Boardman <spider@orb.nashua.nh.us>
Sun, 31 Mar 2002 20:32:43 +0000 (15:32 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 1 Apr 2002 02:02:32 +0000 (02:02 +0000)
Message-Id: <200204010132.UAA14443@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@15644

lib/ExtUtils/xsubpp

index 55dd1a4..284279a 100755 (executable)
@@ -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