Respect env MINICPAN first, then try home, etc

also explicitly check /home/metacpan since that's most likely
metacpan · May 21, 2014 · 21cebaf · 21cebaf
1 parent 0b42d2b
commit 21cebaf
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Role/Common.pm b/lib/MetaCPAN/Role/Common.pm
@@ -139,8 +139,10 @@ sub file2mod {
 
 sub _build_cpan {
     my $self = shift;
-    my @dirs
-        = ( "$ENV{'HOME'}/CPAN", "$ENV{'HOME'}/minicpan", $ENV{'MINICPAN'} );
+    my @dirs = (
+        $ENV{MINICPAN},    '/home/metacpan/CPAN',
+        "$ENV{HOME}/CPAN", "$ENV{HOME}/minicpan"
+    );
     foreach my $dir ( grep {defined} @dirs ) {
         return $dir if -d $dir;
     }