Don't overwrite author profiles for users without a CPAN author dir.

metacpan · Aug 25, 2012 · 5f31529 · 5f31529
1 parent 1f622d1
commit 5f31529
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MetaCPAN/Script/Author.pm b/lib/MetaCPAN/Script/Author.pm
@@ -96,7 +96,7 @@ sub author_config {
     my $dir = $self->cpan->subdir( 'authors',
         MetaCPAN::Util::author_dir($pauseid) );
     my @files;
-    opendir( my $dh, $dir ) || return {};
+    opendir( my $dh, $dir ) || return $fallback;
     my ($file)
         = sort { $dir->file($b)->stat->mtime <=> $dir->file($a)->stat->mtime }
         grep   {m/author-.*?\.json/} readdir($dh);