[svn:parrot] r37792 - trunk/t/codingstd

[coke at svn.parrot.org]

Author: coke
Date: Sat Mar 28 01:50:21 2009
New Revision: 37792
URL: https://trac.parrot.org/parrot/changeset/37792

Log:
[t]  Fix logic to strip off multiple leading PARROT_* modifiers

Modified:
   trunk/t/codingstd/c_function_docs.t

Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t	Sat Mar 28 01:29:03 2009	(r37791)
+++ trunk/t/codingstd/c_function_docs.t	Sat Mar 28 01:50:21 2009	(r37792)
@@ -47,7 +47,7 @@
         my $escaped_decl = $function_decl;
 
         # strip out any PARROT_* prefixes
-        $escaped_decl =~ s/^PARROT_[A-Z_]*\b\s*//g;        
+        $escaped_decl =~ s/^\s*PARROT_[A-Z_]*\b\s+//gm;
 
         # strip out any ARG* modifiers
         $escaped_decl =~ s/ARG(?:IN|MOD)\((.*?)\)/$1/g;