X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b22f63ba31441200ca915c64445d5a87d146c327..a6bad536d7682c7932125500bb9e04a4cb8cb351:/digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 950c1b2..24eb8f5 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -1,6 +1,6 @@
 <(common.inc.plp)><:
 
-my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+my $mode = ($Request // '') eq 'xorg' || exists $get{xorg};
 my $modename = $mode ? 'X.Org' : 'RFC-1345';
 
 Html({
@@ -14,7 +14,7 @@ Html({
 		character char glyph table unicode vim xorg x11 x
 	'],
 	stylesheet => [qw'light'],
-	data => [qw( digraphs.inc.pl )],
+	data => [qw( data/digraphs.inc.pl )],
 });
 
 :>
@@ -38,7 +38,7 @@ say '<p class="aside">Unofficial <span class="u-l2">proposals</span>',
 :>
 
 <:
-my $di = do 'digraphs.inc.pl'
+my $di = do 'data/digraphs.inc.pl'
 	or die "Error loading digraphs data: ", $@ // $!;
 
 if (exists $get{v}) {