X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FLyrics%2FFetcher%2FLyricsTranslate.pm;h=2ae56b2d8f167c813ae12c93fe232870010d066f;hb=b452276fd2b64718bd217a38e8d0450129f8086f;hp=f1ee778cc3df6a57cd1303873138f1f75016ce3a;hpb=8185bfe821b15836bd175fb8e9241f94d57026e6;p=lyrics-fetcher-lyricstranslate.git

diff --git a/lib/Lyrics/Fetcher/LyricsTranslate.pm b/lib/Lyrics/Fetcher/LyricsTranslate.pm
index f1ee778..2ae56b2 100644
--- a/lib/Lyrics/Fetcher/LyricsTranslate.pm
+++ b/lib/Lyrics/Fetcher/LyricsTranslate.pm
@@ -8,7 +8,7 @@ use HTML::TreeBuilder;
 use HTTP::Tiny;
 use Scalar::Util qw/looks_like_number/;
 
-our $VERSION = '0.001';
+our $VERSION = '0.002001';
 our $BASE_URL = 'http://lyricstranslate.com';
 # 0 means (from) any language; the following arguments are the
 # destination language, artist, and title. The meaning of the last
@@ -42,7 +42,7 @@ sub fetch {
 		return
 	}
 	$tree = HTML::TreeBuilder->new_from_content($response->{content});
-	my $node = $tree->look_down(class => qr/\btranslate-node-text\b/);
+	my $node = $tree->look_down(class => qr/(?<!\S)translate-node-text(?!\S)/);
 	my $ltf = $node->look_down(class => qr/\bltf\b/);
 	my @pars = $ltf->look_down(class => 'par');
 	join "\n", map {
@@ -446,7 +446,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2016 by Marius Gavrilescu
+Copyright (C) 2016-2017 by Marius Gavrilescu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.24.0 or,