Improve tests

[app-musicexpo.git] / lib / App / MusicExpo.pm

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index 19456874f615d5be8d898a9c88353362d2fdce6f..3fccfbb333b36f430eb9d94e6f0d6dfa127f3d57 100644 (file)
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -18,6 +18,7 @@ use File::Basename qw/fileparse/;
 use Fcntl qw/O_RDWR O_CREAT/;
 use Getopt::Long;
 use Storable qw/thaw freeze/;
+use sort 'stable';
 
 ##################################################
 
@@ -147,8 +148,8 @@ sub run {
        );
 
        my @files;
-       for (values %files) {
-               my @versions = @$_;
+       for (sort keys %files) {
+               my @versions = @{$files{$_}};
                my %entry = (%{$versions[0]}, formats => []);
                for my $ver (@versions) {
                        push @{$entry{formats}}, {format => $ver->{format}, file => $ver->{file}};