git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
09716a4
)
source: last-modified negotiation for json output
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 15 Dec 2010 22:05:11 +0000
(23:05 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 15 Dec 2010 23:44:33 +0000
(
00:44
+0100)
source.plp
patch
|
blob
|
history
diff --git
a/source.plp
b/source.plp
index 2ac48336fec79d3aa1d2c87e673da53188c56734..f476ee8d3a2a41259cf67d00651cfe0d2a31c2ed 100644
(file)
--- 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;