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

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Tue Aug 24 13:54:55 2010
New Revision: 48624
URL: https://trac.parrot.org/parrot/changeset/48624

Log:
Don't complain about unwrapped args that are code blocks

Modified:
   trunk/t/codingstd/c_macro_args.t

Modified: trunk/t/codingstd/c_macro_args.t
==============================================================================
--- trunk/t/codingstd/c_macro_args.t	Tue Aug 24 13:39:59 2010	(r48623)
+++ trunk/t/codingstd/c_macro_args.t	Tue Aug 24 13:54:55 2010	(r48624)
@@ -60,6 +60,9 @@
             if ($definition ne "") {
                 foreach my $arg (split /\s*,\s*/, $args) {
 
+                    # skip args that are code blocks
+                    next if $arg eq '_code';
+
                     # eliminate any properly formed usage of the macro arg
                     $definition =~ s/\Q($arg)//g;
                     $definition =~ s/\Q[$arg]//g;