From de445361e811c94a6ef071f2b32f0dcf4c06e489 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Fri, 6 Sep 2013 05:21:07 +0200 Subject: [PATCH] Sort id in grading file --- ACU/Grading.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ACU/Grading.pm b/ACU/Grading.pm index efffcd9..c78742e 100644 --- a/ACU/Grading.pm +++ b/ACU/Grading.pm @@ -43,7 +43,7 @@ sub create_from_trace ($$) my $g = Grade->new($trace_id, $trace_name); - for my $id (keys %{ $trace->{ids} }) + for my $id (sort( keys %{ $trace->{ids} } )) { my $p = Point->new(0, $id, 0, 0); push @{ $g->{tree} }, $p;