[boxer] 01/06: 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).

[Jonas Smedegaard]

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 <dr at 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