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

[mdiep]

Author: mdiep
Date: Tue Apr 17 21:06:35 2007
New Revision: 18276

Modified:
   trunk/t/codingstd/c_parens.t

Log:
Make one of the coding std tests less wrong

Modified: trunk/t/codingstd/c_parens.t
==============================================================================
--- trunk/t/codingstd/c_parens.t        (original)
+++ trunk/t/codingstd/c_parens.t        Tue Apr 17 21:06:35 2007
@@ -76,7 +76,7 @@
         if ( $buf =~ m{ ( (?<!\w) (?!(?:$keywords)\W) \w+ \s+ \( ) }x ) {
             push @non_keyword_paren => "$path: $1\n";
         }
-        if ( $buf =~ m{ ( \( \s+ | \s+ \) ) }x ) {
+        if ( $buf =~ m{ ( \( [ \t]+ [^\n] | [^\n] [ \t]+ \) ) }x ) {
             push @space_between_parens => "$path: $1\n";
         }
     }