From dd670fda9351186a1bf51de2a3b8192a9cda301c Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Sun, 17 Feb 2008 23:04:29 +0100
Subject: Sentinel file to indicate cache entry complete.

---
 lib/LXRng/Web.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/LXRng/Web.pm b/lib/LXRng/Web.pm
index 126bf9b..78380c8 100644
--- a/lib/LXRng/Web.pm
+++ b/lib/LXRng/Web.pm
@@ -91,7 +91,7 @@ sub print_markedup_file {
 	$cfile = $context->config->{'cache'}.'/'.$shaid
 	    if exists $context->config->{'cache'};
 
-	if ($cfile and -d $cfile) {
+	if ($cfile and -e "$cfile/.complete") {
 	    print("<pre id=\"file_contents\">");
 	    while (-r "$cfile/$line") {
 		print("<div class=\"".($focus ? "done" : "pending").
@@ -160,7 +160,11 @@ sub print_markedup_file {
 		}
 	    }
 	    print("</div></pre>\n");
-	    close($cache) if $cache;
+	    if ($cache) {
+		close($cache);
+		open($cache, '>', "$cfile/.complete");
+		close($cache);
+	    }
 	}
 	return $shaid;
     }
-- 
cgit v1.2.3