source: last-modified negotiation for json output
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 15 Dec 2010 22:05:11 +0000 (23:05 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 15 Dec 2010 23:44:33 +0000 (00:44 +0100)
source.plp

index 2ac4833..f476ee8 100644 (file)
@@ -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;