From 5855094b0bb9c8a678db12e0750cd4c2a648ef6a Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 31 Jul 2006 17:01:26 +0200
Subject: [PATCH] Make templates fallback to "default" if they are incomplete.

---
 perl/Sesse/pr0n/Templates.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/Sesse/pr0n/Templates.pm b/perl/Sesse/pr0n/Templates.pm
index 4227486..8ff1e03 100644
--- a/perl/Sesse/pr0n/Templates.pm
+++ b/perl/Sesse/pr0n/Templates.pm
@@ -58,6 +58,7 @@ sub fetch_template {
 
 	my $base = $r->dir_config('TemplateBase');
 	open TEMPLATE, "<$base/$dir/$template"
+		or ($dir ne 'default' and open TEMPLATE, "<$base/default/$template")
 		or Sesse::pr0n::Common::error($r, "Couldn't open $dir/$template: $!");
 
 	local $/;
-- 
2.39.2