diff --git a/bin/latest.pl b/bin/latest.pl index 6dbeda3..3368d95 100644 --- a/bin/latest.pl +++ b/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(); diff --git a/lib/MetaCPAN/Contributor.pm b/lib/MetaCPAN/Contributor.pm index 6534dad..63adfef 100644 --- a/lib/MetaCPAN/Contributor.pm +++ b/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 = +{ diff --git a/lib/MetaCPAN/ES.pm b/lib/MetaCPAN/ES.pm index 77b0c5c..7a4dc63 100644 --- a/lib/MetaCPAN/ES.pm +++ b/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 { diff --git a/lib/MetaCPAN/Ingest.pm b/lib/MetaCPAN/Ingest.pm index 50b6fb4..1e33737 100644 --- a/lib/MetaCPAN/Ingest.pm +++ b/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