common: prepare path request in global variable

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 82aa0c39dd0411c700c49bc95b059bc64d4c297c..cc07c0528344b810a6e1ecc44bf8e7e545f9dd83 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -1,6 +1,6 @@
 <(common.inc.plp)><:
 
-my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
+my $font = $Request;
 
 Html({
        title => 'font coverage '.($font ? "for $font" : 'sheet'),