From 888aa02577be2aaf32d8c6736fada89eb3d06199 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Thu, 2 Nov 2017 16:28:02 +1300 Subject: Use Perldoc L<...> for license link The original markup was generated by Module::Starter. This is marginally more convenient, and is in line with my other CPAN modules. --- lib/Music/Lyrics/LRC.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index f665437..7aec07c 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -466,7 +466,7 @@ This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License (2.0). You may obtain a copy of the full license at: - +L Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the -- cgit v1.2.3 From 9fbf6257713bf33477edf1c43e3f6ef9229d78eb Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Thu, 2 Nov 2017 16:46:49 +1300 Subject: Handle blank lyric lines In some LRC files, a timestamp with nothing after it except perhaps some whitespace means to blank the lyric area at that time for a part of the song with no lyrics, e.g.: [00:55.363] This patch handles this as a valid lyric line, and prevents it from being interpreted as a tag with the name "00". --- lib/Music/Lyrics/LRC.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index f665437..693ed49 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -54,7 +54,9 @@ our %RE = ( ) # End seconds group \] # Closing right bracket [\t ]* # Any tabs or spaces - (.*\S) # Lyric line, capture + ( # Lyric line group, capture + (?:.*\S)? # Anything ending with non-whitespace + ) # End lyric line group \s* # Any whitespace \z # End of string }msx, -- cgit v1.2.3 From 8c630634f713f83cd36d4c4277a20b4b7bcae9b5 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Thu, 2 Nov 2017 16:50:20 +1300 Subject: Bump version number to 0.08 --- Makefile.PL | 2 +- lib/Music/Lyrics/LRC.pm | 4 ++-- t/basic.t | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index fa6b1f2..abfeeab 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -25,7 +25,7 @@ WriteMakefile( 'meta-spec' => { version => 2 }, provides => { 'Music::Lyrics::LRC' => { - version => '0.07', + version => '0.08', file => 'lib/Music/Lyrics/LRC.pm', }, }, diff --git a/lib/Music/Lyrics/LRC.pm b/lib/Music/Lyrics/LRC.pm index aa9ab37..f7f6cdc 100644 --- a/lib/Music/Lyrics/LRC.pm +++ b/lib/Music/Lyrics/LRC.pm @@ -13,7 +13,7 @@ use English '-no_match_vars'; use 5.006; # Declare package version -our $VERSION = '0.07'; +our $VERSION = '0.08'; # Patterns to match elements of the LRC file; these are somewhat tolerant our %RE = ( @@ -272,7 +272,7 @@ Music::Lyrics::LRC - Manipulate LRC karaoke timed lyrics files =head1 VERSION -Version 0.07 +Version 0.08 =head1 DESCRIPTION diff --git a/t/basic.t b/t/basic.t index a0f91f8..5600c75 100644 --- a/t/basic.t +++ b/t/basic.t @@ -8,7 +8,7 @@ use Test::More tests => 9; use Music::Lyrics::LRC; -our $VERSION = '0.07'; +our $VERSION = '0.08'; my $lrc = Music::Lyrics::LRC->new(); ok( defined $lrc, 'constructed' ); -- cgit v1.2.3 From 5f0d51af85945376b3806abe6917be438a35d2f5 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Thu, 2 Nov 2017 16:53:31 +1300 Subject: Update Changes file --- Changes | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Changes b/Changes index eff0981..118c20e 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,10 @@ Revision history for Music-Lyrics-LRC +0.08 2017-11-02 + + - Handle blank lyric lines correctly + - Documentation correction + 0.07 2017-11-02 - Parse any resolution of fractional seconds in input, including no fractional -- cgit v1.2.3