[SVN] [67] Ugly bug fixes

[matt]

Revision: 67
Author:   matt
Date:     2006-08-09 03:05:36 +0000 (Wed, 09 Aug 2006)

Log Message:
-----------
Ugly bug fixes

Modified Paths:
--------------
    trunk/plugins/fast_mime_map

Modified: trunk/plugins/fast_mime_map
===================================================================
--- trunk/plugins/fast_mime_map 2006-08-09 02:52:29 UTC (rev 66)
+++ trunk/plugins/fast_mime_map 2006-08-09 03:05:36 UTC (rev 67)
@@ -93,9 +93,13 @@
     my $custom_map = $self->mime_map;
     
     $filename =~ s/.*\///;
+    $self->log(LOGDEBUG, "mapping $filename");
     my @parts = split(/\./, $filename);
+    my $uno = 0;
     while (@parts) {
         my $name = join('.', @parts);
+        $name = ".$name" if ($uno++);
+        $self->log(LOGDEBUG, "looking for mapping for: $name");
         if (exists($custom_map->{$name})) {
             $hd->mime_type($custom_map->{$name});
             return OK;