X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND.pm;h=404c8795648e042764cc2c28443b56a476e85981;hb=f9bfa2ffe57377a483158ac96a6f81156b5b9220;hp=befe1b9560b8d2acfaa769b36ab2a7e230c26564;hpb=40f379f98b8350710b02d1f68a90d337ad13ab92;p=ndwebbie.git

diff --git a/ND.pm b/ND.pm
index befe1b9..404c879 100755
--- a/ND.pm
+++ b/ND.pm
@@ -31,7 +31,6 @@ use Fcntl 'O_RDONLY';
 use strict;
 use warnings FATAL => 'all';
 
-tie our @PAGES, 'Tie::File', "/var/www/ndawn/code/pages", mode => O_RDONLY or die $!;
 
 sub handler {
 	local $ND::r = shift;
@@ -82,7 +81,8 @@ sub page {
 
 	our $LOG = $DBH->prepare('INSERT INTO log (uid,text) VALUES(?,?)');
 
-	$ND::PAGE = 'main' unless grep { /^$ND::PAGE$/ } @PAGES;
+	tie my @pages, 'Tie::File', "/var/www/ndawn/code/pages", mode => O_RDONLY, memory => 0 or die $!;
+	$ND::PAGE = 'main' unless grep { /^$ND::PAGE$/ } @pages;
 
 	our $XML = 0;
 	$XML = 1 if param('xml') and $ND::PAGE =~ /^(raids)$/;