--- Info.pm.old 2004-09-22 10:19:00.000000000 -0700 +++ Info.pm 2004-09-22 10:19:26.000000000 -0700 @@ -1131,6 +1131,7 @@ sub plainTitle { if ($file) { $title = (splitdir($file))[-1]; } + # directories don't get the suffixes if ($title && !($type && $type eq 'dir')) { $title =~ s/\.[^.]+$//; @@ -1179,10 +1180,11 @@ sub standardTitle { # match is accepted and applied to the argument tag hash. # sub guessTags { - my $file = shift; + my $filename = shift; my $type = shift; my $taghash = shift; - + + my $file = $filename; $::d_info && Slim::Utils::Misc::msg("Guessing tags for: $file\n"); # Rip off from plainTitle() @@ -1237,7 +1239,7 @@ sub guessTags { } # Nothing found; revert to plain title - $taghash->{'TITLE'} = plainTitle($file, $type); + $taghash->{'TITLE'} = plainTitle($filename, $type); }