From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 16 Jul 2017 15:44:58 +0000 (+0200)
Subject: common: include from cwd to work around perl v5.26 security
X-Git-Tag: v1.11~16
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/ce551a5d55b12c8b377e9331fbfe4d67790934e4?ds=sidebyside

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

Find site modules in the working directory as was default up to perl v5.24.
Sufficiently safe as all code should be executed from the document root.
---

diff --git a/common.inc.plp b/common.inc.plp
index 3c92817..68ada33 100644
--- 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;