From a81f31053ed7d5b2dba0e372525b3df0fe9ed141 Mon Sep 17 00:00:00 2001 From: ens-bwalts Date: Tue, 28 Aug 2018 13:34:25 +0100 Subject: [PATCH] syntax for hashref element access changes between Perl versions --- t/02.api/overflow.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/02.api/overflow.t b/t/02.api/overflow.t index aecbb564b..6992d3e1e 100755 --- a/t/02.api/overflow.t +++ b/t/02.api/overflow.t @@ -168,7 +168,7 @@ is ($fetched_acr->condition_analysis_url, $long_cau, "Retrieved long condition_a my $fetched_accu_structures = $acu_a->fetch_structures_for_job_ids($accu_funnel_job->dbID); my $fetched_accu_hash = $fetched_accu_structures->{$accu_funnel_job->dbID}; my $fetched_struct_name = (keys(%$fetched_accu_hash))[0]; -my $fetched_key_signature = (keys(%$fetched_accu_hash->{$fetched_struct_name}))[0]; +my $fetched_key_signature = (keys(%{$fetched_accu_hash->{$fetched_struct_name}}))[0]; is ($fetched_struct_name, $long_struct_name, "fetched long struct_name from accu"); is ($fetched_key_signature, $long_key_signature, "fetched long key_signature from accu");