common: prepare path request in global variable

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 33156693d3f15c24a877b5645e86af041c5ebbe2..4c01b78d0b6bb45717d7f7e7e35bce8f55d81bf5 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
-use 5.014;
 
 Html({
        title => 'charset cheat sheet',
@@ -98,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) {
@@ -183,7 +182,7 @@ for my $row (@request) {
                }
                print "\n";
        }
-       print "</table></div>\n";
+       say '</table></div>';
 }
 
 :>