Match tag names case-insensitively.

[flac-archive] / fa-flacd

diff --git a/fa-flacd b/fa-flacd
index 7c89d9359cfa4cc57d350d2457da0d0d7f712a0a..d378a1b42cd54a2478f9dce6d7175547d25ab610 100755 (executable)
--- a/fa-flacd
+++ b/fa-flacd
@@ -48,10 +48,10 @@ sub get_tags {
 
         ($tag, $value) = split(/=/, $_, 2);
 
-        if (/^ARTIST=/) {
+        if (/^ARTIST=/i) {
             $artist = $value;
             verbose("ARTIST $artist from $fn\n");
-        } elsif (/^ALBUM=/) {
+        } elsif (/^ALBUM=/i) {
             $album = $value;
             verbose("ALBUM $album from $fn\n"); # cperl-mode sucks "
         }