From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 15 Dec 2010 22:05:11 +0000 (+0100)
Subject: source: last-modified negotiation for json output
X-Git-Tag: v1.4~3
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/918a888d397a962465dfa834dbd0907ef4b63d4b?ds=sidebyside

source: last-modified negotiation for json output
---

diff --git a/source.plp b/source.plp
index 2ac4833..f476ee8 100644
--- a/source.plp
+++ b/source.plp
@@ -5,6 +5,7 @@ $source =~ s{^/}{};
 
 if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
 	# convert perl include to json construct
+	checkmodified($source);
 	eval {
 		my $data = do $source or die $@ || $! || 'read error';
 		require JSON;