From 0c3aa82b2a089f147cdeb12768b4e2eba2c34a8f Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 5 Jul 2022 12:20:24 +0100 Subject: [PATCH] disable statement unlikely for die after exec, sigh --- yarrg/commod-update-receiver | 2 ++ yarrg/dictionary-update-receiver | 2 ++ yarrg/web/query_routesearch | 2 ++ 3 files changed, 6 insertions(+) diff --git a/yarrg/commod-update-receiver b/yarrg/commod-update-receiver index 42cd253..0258a51 100755 --- a/yarrg/commod-update-receiver +++ b/yarrg/commod-update-receiver @@ -33,6 +33,8 @@ use MIME::Entity; use Commods; +no warnings qw(exec); + $CGI::POST_MAX= 3*1024*1024; use CGI qw/:standard -private_tempfiles/; diff --git a/yarrg/dictionary-update-receiver b/yarrg/dictionary-update-receiver index 4c90f84..feef04b 100755 --- a/yarrg/dictionary-update-receiver +++ b/yarrg/dictionary-update-receiver @@ -35,6 +35,8 @@ BEGIN { unshift @INC, qw(.) } use strict (qw(vars)); use POSIX; +no warnings qw(exec); + $CGI::POST_MAX= 1024*1024; $CGI::DISABLE_UPLOADS= 1; diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 151824c..126c4e8 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -51,6 +51,8 @@ $allargs <%perl> +no warnings qw(exec); + use BSD::Resource; my $emsg; -- 2.30.2