--- Parse.pm.bak Thu Jun 3 07:19:14 2004 +++ Parse.pm Thu Jun 3 07:20:52 2004 @@ -165,11 +165,11 @@ if (/^TITLE\s+\"(.*)\"/i) { $album = $1; - } elsif (/^YEAR\s+\"(.*)\"/i) { + } elsif (/^(?:REM\s+)?YEAR\s+\"(.*)\"/i) { $year = $1; - } elsif (/^GENRE\s+\"(.*)\"/i) { + } elsif (/^(?:REM\s+)?GENRE\s+\"(.*)\"/i) { $genre = $1; - } elsif (/^COMMENT\s+\"(.*)\"/i) { + } elsif (/^(?:REM\s+)?COMMENT\s+\"(.*)\"/i) { $comment = $1; } elsif (/^FILE\s+\"(.*)\"/i) { $filename = $1; @@ -179,7 +179,7 @@ } elsif (defined $currtrack and /^\s+PERFORMER\s+\"(.*)\"/i) { $tracks{$currtrack}->{'ARTIST'} = $1; } elsif (defined $currtrack and - /^\s+(TITLE|YEAR|GENRE|COMMENT)\s+\"(.*)\"/i) { + /^(?:\s+REM)?\s+(TITLE|YEAR|GENRE|COMMENT)\s+\"(.*)\"/i) { $tracks{$currtrack}->{uc $1} = $2; } elsif (defined $currtrack and /^\s+INDEX\s+01\s+(\d+):(\d+):(\d+)/i) {