Use different path for release script under test harness.

metacpan · Apr 28, 2016 · c17d9e3 · c17d9e3
1 parent acf8fc3
commit c17d9e3
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -100,9 +100,14 @@ sub run {
         elsif ( $_ =~ /^https?:\/\//
             && CPAN::DistnameInfo->new($_)->cpanid )
         {
-            my $d    = CPAN::DistnameInfo->new($_);
+            my $d = CPAN::DistnameInfo->new($_);
+
+            # XXX move path to config file
             my $file = $self->home->file(
-                qw(var tmp http authors),
+                (
+                    'var', ( $ENV{HARNESS_ACTIVE} ? 't' : () ),
+                    'tmp', 'http', 'authors'
+                ),
                 MetaCPAN::Util::author_dir( $d->cpanid ),
                 $d->filename,
             );