[libconfig-model-dpkg-perl] 04/04: prepend sort to keys %stuff

[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 49cfb3291a80db71ebac669acc43960c256c36be
Author: Dominique Dumont <dod at debian.org>
Date:   Tue Jun 16 12:46:10 2015 +0200

    prepend sort to keys %stuff
---
 lib/Config/Model/Dpkg/Copyright.pm | 2 +-
 lib/Dpkg/Copyright/Scanner.pm      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index f05c778..a074329 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -63,7 +63,7 @@ sub update ($self, %args) {
     my %new_split_files;
     my @data;
     my %data_keys;
-    foreach my $path ( keys $files->%* ) {
+    foreach my $path ( sort keys $files->%* ) {
         my ($c, $l) = $copyrights_by_id->[ $files->{$path} ]->@*;
 
         my $new_data = dclone (delete $old_split_files{$path} || {} );
diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index b9e2a05..85c162b 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -45,7 +45,7 @@ sub print_copyright ( %args ) {
 
     # split file path and fill recursive hash, leaf is id
     my $split_files = {};
-    foreach my $path (keys %$files) {
+    foreach my $path (sort keys %$files) {
         __create_tree_leaf_from_paths ($split_files,$path,$files->{$path});
     }
 
@@ -272,7 +272,7 @@ sub __squash_copyrights_years ($copyrights_by_id) {
     # now detect where %id_year_by_same_owner_license references more
     # than one id this means that several entries can be merged in a
     # *new* id (new id to avoid cloberring data of other directories)
-    foreach my $owner_license (keys %id_year_by_same_owner_license) {
+    foreach my $owner_license (sort keys %id_year_by_same_owner_license) {
         my @entries =  $id_year_by_same_owner_license{$owner_license}->@* ;
         next unless @entries > 1;
 

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