[libconfig-model-dpkg-perl] 02/08: Scanner: always use sort with keys for predictable results

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit db1bd8c58cf0610604e111db37bfe12ca7bd19ba
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Jan 17 21:07:49 2015 +0100

    Scanner: always use sort with keys for predictable results
---
 lib/Dpkg/Copyright/Scanner.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index e9d31b3..257d1b8 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -96,8 +96,8 @@ sub scan_files {
     }
 
     my @copyrights_by_id ;
-    foreach my $c (keys %copyrights) {
-        foreach my $l (keys $copyrights{$c}->%* ) {
+    foreach my $c (sort keys %copyrights) {
+        foreach my $l (sort keys $copyrights{$c}->%* ) {
             my $id = $copyrights{$c}{$l};
             $copyrights_by_id[$id] = [ $c, $l ] ;
         }
@@ -135,7 +135,7 @@ sub __pack_copyright ($r) {
     }
 
     my @res ;
-    foreach my $owner (keys %cop) {
+    foreach my $owner (sort keys %cop) {
         my $span = Array::IntSpan->new();
         my $data = $cop{$owner};
         foreach my $year ($data->@*) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git