From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Sun, 31 Mar 2002 20:32:43 +0000 (-0500)
Subject: Re: 14986 xsubpp patch broke Unicode::Map8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50a63b21cf78090f08412144f4af089922f60e2d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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