Re: 14986 xsubpp patch broke Unicode::Map8

Message-Id: <200204010132.UAA14443@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@15644

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 55dd1a4..284279a 100755 (executable)
--- 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