From 0c85e067df477fe4ace6e9447706ea488dc70a8d Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 21 Apr 2021 16:43:43 -0700
Subject: [PATCH] Also disallow untrusted referers when using the perl install
 script

---
 setup.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/setup.pl b/setup.pl
index dcc14a6e1..ed0956f05 100755
--- a/setup.pl
+++ b/setup.pl
@@ -227,6 +227,7 @@ else {
 	$gconfig{'os_version'} = $os_version;
 	$gconfig{'real_os_type'} = $real_os_type;
 	$gconfig{'real_os_version'} = $real_os_version;
+	$gconfig{'referers_none'} = 1;
 	$path_separator = $gconfig{'os_type'} eq 'windows' ? ';' : ':';
 	$null_file = $gconfig{'os_type'} eq 'windows' ? "NUL" : "/dev/null";
 	unlink($temp);