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

js pushed a commit to branch master
in repository boxer.

commit 1f927be9de111c4e57c29a8c8a46af27e6446392
Author: Jonas Smedegaard <d...@jones.dk>
Date:   Sun Jun 12 23:27:46 2016 +0200

    Fix have current dir be default nodedir (as originally intended and 
documented in boxer pod): Do XDG data_dirs lookup only on datadir, leaving 
datadir undefined by default).
---
 lib/Boxer/Task/Classify.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Boxer/Task/Classify.pm b/lib/Boxer/Task/Classify.pm
index d9d7ce4..d688942 100644
--- a/lib/Boxer/Task/Classify.pm
+++ b/lib/Boxer/Task/Classify.pm
@@ -8,7 +8,7 @@ use IPC::System::Simple;
 
 use Moo;
 use Boxer::Types qw( DataDir ClassDir NodeDir Suite );
-use Types::Standard qw( Str Undef );
+use Types::Standard qw( Maybe Str Undef );
 extends 'Boxer::Task';
 
 use File::BaseDir qw(data_dirs);
@@ -30,10 +30,10 @@ sub BUILDARGS
 
 has datadir => (
        is       => 'lazy',
-       isa      => DataDir,
+       isa      => Maybe[DataDir],
        coerce   => 1,
        required => 1,
-       default  => sub { scalar( data_dirs( 'boxer', $_[0]->suite ) ) },
+       default  => sub { undef },
 );
 
 has suite => (
@@ -49,7 +49,7 @@ has classdir => (
        isa      => ClassDir,
        coerce   => 1,
        required => 1,
-       default  => sub { $_[0]->datadir->child('classes') },
+       default  => sub { $_[0]->datadir ? $_[0]->datadir->child('classes') : 
scalar( data_dirs( 'boxer', $_[0]->suite, 'classes' ) ) },
 );
 
 has nodedir => (

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/boxer.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to