X-Git-Url: http://git.ieval.ro/?p=app-musicexpo.git;a=blobdiff_plain;f=lib%2FApp%2FMusicExpo.pm;h=3fccfbb333b36f430eb9d94e6f0d6dfa127f3d57;hp=19456874f615d5be8d898a9c88353362d2fdce6f;hb=a535e8790ef7f825c6049e16dff723d9e9b54634;hpb=00b6ce9d492d47008f6569744cb8e031c9d04468

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index 1945687..3fccfbb 100644
--- 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}};