[svn:parrot] r33930 - in trunk: ext/SQLite3 ext/SQLite3/DBDI/Driver languages/perl6/src/classes t/codingstd

[infinoid]

Author: infinoid
Date: Mon Dec 15 11:41:09 2008
New Revision: 33930

Modified:
   trunk/ext/SQLite3/DBDI.pm
   trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm
   trunk/languages/perl6/src/classes/Mapping.pir
   trunk/t/codingstd/perlcritic.t

Log:
[cage] More codingstd fixes.
* t/codingstd/perlcritic.t (ignore perl6 files based on containing "use v6;")
* t/codingstd/trailing_space.t (again)

Modified: trunk/ext/SQLite3/DBDI.pm
==============================================================================
--- trunk/ext/SQLite3/DBDI.pm   (original)
+++ trunk/ext/SQLite3/DBDI.pm   Mon Dec 15 11:41:09 2008
@@ -2,6 +2,8 @@
 # $Id$
 # Copyright (C) 2008 The Perl Foundation
 
+use v6;
+
 class DBDI::DriverManager {
     method getConnection($url, $login, $password) {
         my $c1 = $url.index(":");

Modified: trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm
==============================================================================
--- trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm    (original)
+++ trunk/ext/SQLite3/DBDI/Driver/SQLite3.pm    Mon Dec 15 11:41:09 2008
@@ -2,6 +2,8 @@
 # $Id$
 # Copyright (C) 2008 The Perl Foundation
 
+use v6;
+
 use SQLite3;
 use DBDI;
 

Modified: trunk/languages/perl6/src/classes/Mapping.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Mapping.pir       (original)
+++ trunk/languages/perl6/src/classes/Mapping.pir       Mon Dec 15 11:41:09 2008
@@ -24,7 +24,7 @@
 
 =item Scalar
 
-When we're going to be stored as an item, become a Hash and 
+When we're going to be stored as an item, become a Hash and
 return an ObjectRef to it.
 
 =cut

Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t      (original)
+++ trunk/t/codingstd/perlcritic.t      Mon Dec 15 11:41:09 2008
@@ -48,7 +48,8 @@
     my $filter_languages = 
qr/^\Q$languages_dir$PConfig{slash}\E(?!eclectus|hq9plus|m4|pipp)/x;
 
     @files = grep {! m/$filter_languages/}
-             map { $_->path }
+             map  { $_->path }
+             grep { $_->read !~ m/use v6;/ }
              $dist->get_perl_language_files();
 } else {
     my $node = shift;