[SVN] [33] Don't use dirindex file if it doesn't exist

[matt]

Revision: 33
Author:   matt
Date:     2006-08-02 22:04:49 +0000 (Wed, 02 Aug 2006)

Log Message:
-----------
Don't use dirindex file if it doesn't exist

Modified Paths:
--------------
    trunk/plugins/uri_to_file

Modified: trunk/plugins/uri_to_file
===================================================================
--- trunk/plugins/uri_to_file   2006-08-02 20:53:16 UTC (rev 32)
+++ trunk/plugins/uri_to_file   2006-08-02 22:04:49 UTC (rev 33)
@@ -15,7 +15,8 @@
     
     my $path = canonpath(catfile($self->config->docroot, $uri));
     if (-d $path) {
-        $path = catfile($path, $self->config->dirindex);
+        my $filepath = catfile($path, $self->config->dirindex);
+        $path = $filepath if -f $filepath;
     }
     
     $hd->filename($path);