From e350541f5050e1acba67e729c2fd7b61585cdb98 Mon Sep 17 00:00:00 2001
From: epg <>
Date: Wed, 27 Apr 2005 05:38:36 +0000
Subject: [PATCH] Match tag names case-insensitively.

---
 fa-flacd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 "
         }
-- 
2.56.0