keys are supposed to be case insensitive.
($tag, $value) = split(/=/, $_, 2);
($tag, $value) = split(/=/, $_, 2);
- } 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.
push(@$artists, $value);
# Intentionally don't match the = on this one, to support the
# TITLE[1] .. TITLE[n] tag style.
push(@$titles, $value);
}
}
push(@$titles, $value);
}
}