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

[coke]

Author: coke
Date: Tue Nov 11 06:54:39 2008
New Revision: 32540

Modified:
   trunk/t/codingstd/trailing_space.t

Log:
[cage] simplify the check for trailing whitespace slightly.

(sadly, \h doesn't work in our mininum required perl version.)



Modified: trunk/t/codingstd/trailing_space.t
==============================================================================
--- trunk/t/codingstd/trailing_space.t  (original)
+++ trunk/t/codingstd/trailing_space.t  Tue Nov 11 06:54:39 2008
@@ -46,7 +46,7 @@
     name     => 'no trailing whitespace',
     files    => [EMAIL PROTECTED],
     skips    => $skip_files,
-    per_line => sub { $_[0] !~ m{.?[ \t]+$}m },
+    per_line => sub { $_[0] !~ m{[ \t]$}m },
     diag_prefix => 'Trailing space or tab char found'
 );