develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
infinoid
Date:
December 15, 2008 11:41
Subject:
[svn:parrot] r33930 - in trunk: ext/SQLite3 ext/SQLite3/DBDI/Driver languages/perl6/src/classes t/codingstd
Message ID:
20081215194110.84B9DCBA12@x12.develooper.com
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;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About