use hash ref instead of hash

NBISweden · Jan 12, 2024 · 5f21e48 · 5f21e48
1 parent 98af8d8
commit 5f21e48
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bin/agat_sp_manage_IDs.pl b/bin/agat_sp_manage_IDs.pl
@@ -111,9 +111,9 @@
 
 foreach my $seqid ( sort { ncmp ($a, $b) } keys %{$hash_sortBySeq}){ # loop over all the feature level1
 
-  foreach my $tag_l1 (sort {$a cmp $b} keys %{$hash_sortBySeq{$seqid}}){
+  foreach my $tag_l1 (sort {$a cmp $b} keys %{$hash_sortBySeq->{$seqid}}){
 
-    foreach my $feature_l1 ( @{$hash_sortBySeq{$seqid}{$tag_l1}}){ # feature are alredy sorted by function that made that hash
+    foreach my $feature_l1 ( @{$hash_sortBySeq->{$seqid}{$tag_l1}}){ # feature are alredy sorted by function that made that hash
       my $id_l1 = lc($feature_l1->_tag_value('ID'));
       my $l1_ID_modified=undef;