[perl #51832] [PATCH] more accurate #line directives

[via RT]

# New Ticket Created by  Christoph Otto 
# Please include the string:  [perl #51832]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51832 >


pmc2c.pl generates incorrect #line directives when function contains two or 
more newlines before the closing }.  This patch fixes that.
The coding standard doesn't address this, so I'm assuming that this is the 
right thing to fix.

Index: lib/Parrot/Pmc2c/Parser.pm
===================================================================
--- lib/Parrot/Pmc2c/Parser.pm	(revision 26458)
+++ lib/Parrot/Pmc2c/Parser.pm	(working copy)
@@ -199,7 +199,7 @@
         $methodblock =~ s/^[ ]{4}//mg;
 
         # trim trailing ws from last line
-        $methodblock =~ s/\n\s+$/\n/g;
+        $methodblock =~ s/\n[ \t]+$/\n/g;
 
         $decorators ||= '';
         $decorators   =~ s/^\s*(.*?)\s*$/$1/s;