Allow DirectoryIndex to find index page in root pages/ dir:

It seems DirectoryIndex, when the readin() sub doesn't find a page for '', adds a slash, so it then looks for '/index'. This is wrong when acting on the root pages/ directory, so now we check if the page is blank, and if so skip the slash. Came to light when attempting to serve a root index.html page via PageTables.
interchange · May 2, 2014 · 2c9c489 · 2c9c489
1 parent 6d17d75
commit 2c9c489
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Vend/Page.pm b/lib/Vend/Page.pm
@@ -127,7 +127,8 @@ sub display_page {
 	# Try one last time for page with index
 	if(! defined $page and $Vend::Cfg->{DirectoryIndex}) {
 		my $try = $name;
-		$try =~ s!/*$!/$Vend::Cfg->{DirectoryIndex}!;
+		my $slash = length($try) ? '/' : '';
+		$try =~ s!/*$!$slash$Vend::Cfg->{DirectoryIndex}!;
 		$page = readin($try);
 	}