Match tag names case-insensitively.

diff --git a/fa-flacd b/fa-flacd
index 7c89d93..d378a1b 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 "
         }