diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 23:35:20 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 23:35:20 +1300 |
commit | 593dd4728ff45493ceaed8133476f4bbe1179af4 (patch) | |
tree | de806141b697be96688c4bf71b895f69dc468d0a /lib | |
parent | Sort returned and saved lyrics by time (diff) | |
download | Music-Lyrics-LRC-593dd4728ff45493ceaed8133476f4bbe1179af4.tar.gz Music-Lyrics-LRC-593dd4728ff45493ceaed8133476f4bbe1179af4.zip |
Sort returned and saved tags alphabetically
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Music/Lyrics/LRC.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index 22ea875..65af7a5 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -197,7 +197,7 @@ sub save { my $lines = 0; # Iterate through tags - for my $name ( keys %{ $self->{tags} } ) { + for my $name ( sort keys %{ $self->{tags} } ) { my $value = $self->{tags}{$name}; $lines += printf {$fh} "[%s:%s]\n", $name, $value or die "Failed tag write: $ERRNO\n"; |