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

[mikehh at svn.parrot.org]

Author: mikehh
Date: Wed Sep 29 04:45:39 2010
New Revision: 49377
URL: https://trac.parrot.org/parrot/changeset/49377

Log:
fix perlcritic failure - remove hard tabs

Modified:
   trunk/t/codingstd/c_enum.t

Modified: trunk/t/codingstd/c_enum.t
==============================================================================
--- trunk/t/codingstd/c_enum.t	Wed Sep 29 03:08:39 2010	(r49376)
+++ trunk/t/codingstd/c_enum.t	Wed Sep 29 04:45:39 2010	(r49377)
@@ -39,8 +39,8 @@
     my @trailing_comma;
 
     foreach my $file (@_) {
-	my $path = @ARGV ? $file : $file->path();
-	my $buf  = $DIST->slurp($path);
+        my $path = @ARGV ? $file : $file->path();
+        my $buf  = $DIST->slurp($path);
 
         # strip ', ", and C comments
         $buf =~ s{ (?:
@@ -50,12 +50,12 @@
                    )
                 }{defined $1 ? "$1$2" : defined $3 ? "$3$4" : "$5$6"}egsx;
 
-	if ($buf =~ /enum \s+ (?: (\w+) \s+ )? {
-			[^}]+,
-		    \s+ } (?: \s+ (\w+) )?/x) {
-	    my $name = $1 || $2 || '(anonymous)';
-	    push @trailing_comma => "$path: $name";
-	}
+        if ($buf =~ /enum \s+ (?: (\w+) \s+ )? {
+                [^}]+,
+                \s+ } (?: \s+ (\w+) )?/x) {
+            my $name = $1 || $2 || '(anonymous)';
+            push @trailing_comma => "$path: $name";
+        }
     }
 
     is( join("\n", @trailing_comma), "", <<END_DESCRIPTION );