keys are supposed to be case insensitive.
($tag, $value) = split(/=/, $_, 2);
- if (/^ARTIST=/) {
+ if (/^ARTIST=/i) {
$artist = $value;
- } elsif (/^ALBUM=/) {
+ } elsif (/^ALBUM=/i) {
$album = $value;
- } elsif (/^DATE=/) {
+ } elsif (/^DATE=/i) {
$date = $value;
- } elsif (/^ARTIST\[/) {
+ } elsif (/^ARTIST\[/i) {
push(@$artists, $value);
# Intentionally don't match the = on this one, to support the
# TITLE[1] .. TITLE[n] tag style.
- } elsif (/^TITLE/) {
+ } elsif (/^TITLE/i) {
push(@$titles, $value);
}
}