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

[barney at svn.parrot.org]

Author: barney
Date: Sun Feb 15 14:16:15 2009
New Revision: 36762
URL: https://trac.parrot.org/parrot/changeset/36762

Log:
[codingstd] The list of languages for 'make codetest' is empty,
add a dummy language, so that the filter doesn't degenerate

Modified:
   trunk/t/codingstd/perlcritic.t

Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t	Sun Feb 15 13:53:50 2009	(r36761)
+++ trunk/t/codingstd/perlcritic.t	Sun Feb 15 14:16:15 2009	(r36762)
@@ -69,10 +69,12 @@
 if ( !@ARGV ) {
 
     # We want to skip any language's perl files except those which have declared
-    # they wish to be tested. Language developers: don't break the build!
+    # they wish to be tested.
+    # As languages are leaving the, there a currently no languages that want
+    # to be tested in the root 'make codetest'.
 
     my $languages_dir = File::Spec->catdir( $PConfig{build_dir}, 'languages');
-    my $filter_languages = qr/^\Q$languages_dir$PConfig{slash}\E(?!)/x;
+    my $filter_languages = qr/^\Q$languages_dir$PConfig{slash}\E(?!dummy)/x;
 
     @files = grep {! m/$filter_languages/}
              map  { $_->path }