From 918a888d397a962465dfa834dbd0907ef4b63d4b Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 15 Dec 2010 23:05:11 +0100
Subject: [PATCH] source: last-modified negotiation for json output

---
 source.plp | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
2.30.0