word/edit: subpage alias to writer functionality

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index dd41751a5789d861a4559312e98d745a78878c36..f7ca70023bf9a7ff386cb5a9fabbebc37117e465 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -47,10 +47,10 @@ BEGIN {
        our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
 }
 
-our $Request = decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r);
+our $Request //= decode_utf8($ENV{PATH_INFO} =~ s{^/}{}r);
 
 our $style;
-our $showkeys = !exists $get{keys} ? undef :
+our $showkeys //= !exists $get{keys} ? undef :
        ($get{keys} ne '0' && ($get{keys} || 'always'));
 
 $header{content_type} = 'text/html; charset=utf-8';