summaryrefslogtreecommitdiff
path: root/info
diff options
context:
space:
mode:
Diffstat (limited to 'info')
-rwxr-xr-xinfo/10-azlyrics.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/info/10-azlyrics.pl b/info/10-azlyrics.pl
index 4b88bda..3cc0b92 100755
--- a/info/10-azlyrics.pl
+++ b/info/10-azlyrics.pl
@@ -20,8 +20,8 @@ my ($title, $artist, $album) = map {decode_utf8($_)} @ARGV;
# TODO: An upgrade would be transliteration with, e.g., Text::Unidecode.
use Unicode::Normalize;
-$artist = lc(NFD($artist) =~ s/^the\s+//ir =~ s/[^A-Za-z0-9]//gr);
-$title = lc(NFD($title) =~ s/\(.*?\)//gr =~ s/[^A-Za-z0-9]//gr);
+$artist = lc(NFD($artist)) =~ s/^the\s+//ir =~ s/[^a-z0-9]//gr;
+$title = lc(NFD($title)) =~ s/\(.*?\)//gr =~ s/[^a-z0-9]//gr;
# TODO: Consider caching the results in a location like
# $XDG_CACHE_HOME/nncmpp/info/azlyrics/$artist-$title