common: include from cwd to work around perl v5.26 security

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 8fc60ef27f6710f3720a3d52ca4c2e24b5ebc594..68ada33956a5a1dce7116da4d6181323ab8d4e88 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -34,6 +34,8 @@ BEGIN {
                Alert("<strong>Fatal error</strong>: $html.");
        };
 
+       push @INC, '.';
+
        # user request
        our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
        our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
@@ -127,7 +129,7 @@ sub Html {
                '<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]-->',
                !$showkeys ? '<style> .no {visibility:hidden} </style>' :
                $showkeys eq 'ghost' ? '<style> .no, .alias {opacity:.5} </style>' : (),
-               '<script type="text/javascript" src="/keys.js?1.6"></script>',
+               '<script type="text/javascript" src="/keys.js?1.6" async></script>',
        ) if $meta->{keys};
 
        # leading output