common: prepare path request in global variable

[sheet.git] / chars.plp

diff --git a/chars.plp b/chars.plp
index b25c5e2ccb96aad30abf34c7d08f2252ef19daa3..a175f8d136105b45729a77e3223273686c18ff1c 100644 (file)
--- a/chars.plp
+++ b/chars.plp
@@ -33,8 +33,7 @@ for my $fontid (@fontlist) {
 
 my ($title, $parent) = ('Character overview');
 my $query = eval {
-       for ($ENV{PATH_INFO} || ()) {
-               s{^/}{};
+       for ($Request || ()) {
                return $_ if m{^[0-9 +-]+$};
 
                my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";