Fix test path for opening cpantesters.db

metacpan · Apr 29, 2016 · f524050 · f524050
1 parent 541fb7f
commit f524050
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Script/CPANTesters.pm b/lib/MetaCPAN/Script/CPANTesters.pm
@@ -29,13 +29,13 @@ has force_refresh => (
     default => 0,
 );
 
+# XXX move path to config
 has mirror_file => (
     is      => 'ro',
     isa     => File,
     default => sub {
-        $ENV{HARNESS_ACTIVE}
-            ? shift->home->file(qw(t var tmp cpantesters.db))
-            : shift->home->file(qw( var tmp cpantesters.db));
+        shift->home->file( 'var', ( $ENV{HARNESS_ACTIVE} ? 't' : () ),
+            'tmp', 'cpantesters.db' );
     },
     coerce => 1,
 );