[svn:DBD-Pg] r11579 - DBD-Pg/trunk/t

Author: turnstep
Date: Wed Jul 23 15:53:10 2008
New Revision: 11579

Modified:
   DBD-Pg/trunk/t/99_perlcritic.t

Log:
Lose no longer relevant spacing hack.


Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t	(original)
+++ DBD-Pg/trunk/t/99_perlcritic.t	Wed Jul 23 15:53:10 2008
@@ -108,10 +108,10 @@
 		diag "Source: $source\n\n";
 	}
 	if ($vios) {
-		fail (qq{ Failed Perl::Critic tests for file "$filename": $vios});
+		fail (qq{Failed Perl::Critic tests for file "$filename": $vios});
 	}
 	else {
-		pass (qq{ File "$filename" passed all Perl::Critic tests});
+		pass (qq{File "$filename" passed all Perl::Critic tests});
 	}
 
 }
@@ -181,12 +181,11 @@
 		diag "Policy: $policy\n";
 		diag "Source: $source\n\n";
 	}
-	my $SPACE = ++$count < 7 ? ' ' : '';
 	if ($vios) {
-		fail (qq{${SPACE}Failed Perl::Critic tests for file "$filename": $vios});
+		fail (qq{Failed Perl::Critic tests for file "$filename": $vios});
 	}
 	else {
-		pass (qq{${SPACE}File "$filename" passed all Perl::Critic tests});
+		pass (qq{File "$filename" passed all Perl::Critic tests});
 	}
 }