X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cd1aa5e48c47c1830a8e205ee1d7366d7d08c59e..108d13f833e9daeff4ea1552e2e1bee1e0ed8c22:/charset.plp?ds=sidebyside

diff --git a/charset.plp b/charset.plp
index 3315669..4c01b78 100644
--- 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>';
 }
 
 :>