mark known bottleneck with a comment

Updates #685
shawnlaffan · Feb 24, 2018 · 1d6b62a · 1d6b62a
1 parent a3d9d5b
commit 1d6b62a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Biodiverse/Randomise.pm b/lib/Biodiverse/Randomise.pm
@@ -2619,6 +2619,9 @@ sub swap_to_reach_richness_targets {
                     #  clean up the tracker hashes
                     $filled_groups{$last_filled} = $new_richness;
                     delete $unfilled_groups{$last_filled};
+                    #  THIS NEXT LOOP IS A MAJOR BOTTLENECK (bremove call)
+                    #  when working with large data sets
+                    #  need to avoid indexing in the first place?
                     foreach my $label (keys %{$unfilled_gps_without_label_by_gp{$last_filled}}) {
                         my $list = $unfilled_gps_without_label{$label};
                         bremove {$_ cmp $last_filled} @$list;