diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 22:51:47 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-01 22:51:47 +1300 |
commit | 605abfcd72b73b6a280bdb88f75427a2174c8477 (patch) | |
tree | ac7d3bf1b08e954869fb78e5c87d78a65ea6e89e /lib/Music/Lyrics/LRC.pm | |
parent | Verify reftype of param passed to load() (diff) | |
download | Music-Lyrics-LRC-605abfcd72b73b6a280bdb88f75427a2174c8477.tar.gz Music-Lyrics-LRC-605abfcd72b73b6a280bdb88f75427a2174c8477.zip |
Specify order of desired line parser patterns
Diffstat (limited to 'lib/Music/Lyrics/LRC.pm')
-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 0930386..9cc5154 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -165,7 +165,7 @@ sub load { LINE: while ( my $line = <$fh> ) { # Iterate through line types until one matches - TYPE: for my $type ( keys %RE ) { + TYPE: for my $type (qw(lyric tag blank)) { my @vals = $line =~ $RE{$type} or next TYPE; exists $parsers{$type} |