From: epg <>
Date: Wed, 27 Apr 2005 05:38:36 +0000 (+0000)
Subject: Match tag names case-insensitively.
X-Git-Url: https://diplodocus.org/git/flac-archive/commitdiff_plain/e350541f5050e1acba67e729c2fd7b61585cdb98

Match tag names case-insensitively.
---

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