[libdist-zilla-role-bootstrap-perl] 05/09: update critic

Axel Beckert abe at deuxchevaux.org
Sat Aug 8 11:59:23 UTC 2015


This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 1.000002-source
in repository libdist-zilla-role-bootstrap-perl.

commit 6dc26d0ce4eb13fc283f8d165c6dbdc09cd17d6a
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Tue Jul 15 20:49:05 2014 +1200

    update critic
---
 maint/perlcritic.rc.gen.pl              | 12 +++++++++---
 perlcritic.deps => misc/perlcritic.deps |  0
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/maint/perlcritic.rc.gen.pl b/maint/perlcritic.rc.gen.pl
index 1e3c802..b1f396c 100644
--- a/maint/perlcritic.rc.gen.pl
+++ b/maint/perlcritic.rc.gen.pl
@@ -5,13 +5,16 @@
 # CREATED: 02/06/14 01:48:56 by Kent Fredric (kentnl) <kentfredric at gmail.com>
 # ABSTRACT: Write an INI file from a bundle
 
-use 5.008;    #utf8
+use 5.008;    # utf8
 use strict;
 use warnings;
 use utf8;
 
+our $VERSION = 0.001;
+
 use Carp qw( croak carp );
 use Perl::Critic::ProfileCompiler::Util qw( create_bundle );
+use Path::Tiny qw(path);
 
 ## no critic (ErrorHandling::RequireUseOfExceptions)
 my $bundle = create_bundle('Example::Author::KENTNL');
@@ -33,13 +36,16 @@ my $inf = $bundle->actionlist->get_inflated;
 my $config = $inf->apply_config;
 
 {
-  open my $rcfile, '>', './perlcritic.rc' or croak 'Cant open perlcritic.rc';
+  my $rcfile = path('./perlcritic.rc')->openw_utf8;
   $rcfile->print( $config->as_ini, "\n" );
   close $rcfile or croak 'Something fubared closing perlcritic.rc';
 }
 my $deps = $inf->own_deps;
 {
-  open my $depsfile, '>', './perlcritic.deps' or croak 'Cant open perlcritic.deps';
+  my $target = path('./misc');
+  $target->mkpath if not $target->is_dir;
+
+  my $depsfile = $target->child('perlcritic.deps')->openw_utf8;
   for my $key ( sort keys %{$deps} ) {
     $depsfile->printf( "%s~%s\n", $key, $deps->{$key} );
     *STDERR->printf( "%s => %s\n", $key, $deps->{$key} );
diff --git a/perlcritic.deps b/misc/perlcritic.deps
similarity index 100%
rename from perlcritic.deps
rename to misc/perlcritic.deps

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git



More information about the Pkg-perl-cvs-commits mailing list