common: prepare path request in global variable

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 3bf294e4489b4a54914bb03e97ab1e6fdac9b5f1..4c01b78d0b6bb45717d7f7e7e35bce8f55d81bf5 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -97,7 +97,7 @@ my @request = map {
                ();
        }
 } map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ }
-       $ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}) : 'default';
+       $Request =~ /\w/ ? split(m{[/+\s]}, $Request) : 'default';
 my $NOCHAR = chr 0xFFFD;
 
 for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) {
@@ -182,7 +182,7 @@ for my $row (@request) {
                }
                print "\n";
        }
-       print "</table></div>\n";
+       say '</table></div>';
 }
 
 :>