From 2a7f3b91d4fa46a67d04f963785f957563ac0cfc Mon Sep 17 00:00:00 2001
From: Simon McVittie <smcv@ http://smcv.pseudorandom.co.uk/>
Date: Fri, 28 Aug 2009 15:22:07 +0100
Subject: [PATCH] Force %depends_exact to lower case, fixing incorrect
 case-sensitivity

---
 IkiWiki.pm        | 2 +-
 IkiWiki/Render.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/IkiWiki.pm b/IkiWiki.pm
index e4fcf1d6f..8bded8a0e 100644
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -1751,7 +1751,7 @@ sub add_depends ($$) {
 	if ($pagespec =~ /$config{wiki_file_regexp}/ &&
 		$pagespec !~ /[\s*?()!]/) {
 		# a simple dependency, which can be matched by string eq
-		$depends_exact{$page}{$pagespec} = 1;
+		$depends_exact{$page}{lc $pagespec} = 1;
 		return 1;
 	}
 
diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index f1ee140db..5367b1309 100644
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -457,7 +457,7 @@ sub refresh () {
 	if (%rendered || @del || @internal) {
 		my @changed=(keys %rendered, @del);
 
- 		my %changedpages = map { pagename($_) => 1 } @changed;
+ 		my %lcchanged = map { lc(pagename($_)) => 1 } @changed;
  
 		# rebuild dependant pages
 		F: foreach my $f (@$files) {
@@ -466,7 +466,7 @@ sub refresh () {
 
 			if (exists $depends_exact{$p}) {
 				foreach my $d (keys %{$depends_exact{$p}}) {
-					if (exists $changedpages{$d}) {
+					if (exists $lcchanged{$d}) {
 						debug(sprintf(gettext("building %s, which depends on %s"), $f, $d));
 						render($f);
 						$rendered{$f}=1;