optimize ExternalSorter to do be more likely to do an in-place sort

GMOD · Jan 31, 2013 · 6d7d819 · 6d7d819
1 parent cd135c8
commit 6d7d819
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/perl5/Bio/JBrowse/ExternalSorter.pm b/src/perl5/Bio/JBrowse/ExternalSorter.pm
@@ -109,8 +109,7 @@ sub finish {
         }
         $self->{readSegments} = $readSegments;
     } else {
-        $self->{curList} =
-            [sort $compare @{$self->{curList}}];
+        @{$self->{curList}} = sort $compare @{$self->{curList}};
     }
     $self->{finished} = 1;
 }