common: prepare path request in global variable

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index 097f0ac3f310b103b97cdd68a00fd0dfa5cef2b2..38af1faa1bcd21245b287831c060c22252136b71 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -1,7 +1,6 @@
 <(common.inc.plp)><:
 
-my $source = $ENV{PATH_INFO};
-$source =~ s{^/}{};
+my $source = $Request;
 
 if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
        # convert perl include to json construct