Fix config reading

Author: mickeyn

bin/latest.pl

@@ -32,7 +32,7 @@
 my $minion;
 $minion = minion() if $queue;
 
-my $node = config->{config}{es_test_node};
+my $node = config->{es_test_node};
 
 run();
 

lib/MetaCPAN/Contributor.pm

@@ -77,7 +77,7 @@ sub update_release_contirbutors ( $document, $timeout = "5m" ) {
 
 sub get_contributors ( $author_name, $release_name ) {
     my $config = config;
-    my $node   = $config->{config}{es_test_node};
+    my $node   = $config->{es_test_node};
     my $es     = MetaCPAN::ES->new( type => "release", node => $node );
 
     my $query = +{

lib/MetaCPAN/ES.pm

@@ -14,7 +14,7 @@ sub new ( $class, %args ) {
     my $index = $args{index} // "cpan";
 
     my $config = config;
-    $node ||= $config->{config}{es_node};
+    $node ||= $config->{es_node};
     $node or die "Cannot create an ES instance without a node\n";
 
     return bless {

lib/MetaCPAN/Ingest.pm

@@ -98,7 +98,7 @@ sub author_dir ($pauseid) {
 
 sub cpan_dir () {
     my $config = config();
-    my $cpan   = $config->config->{cpan};
+    my $cpan   = $config->{cpan};
 
     return path($cpan) if -d $cpan;
     die