From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 5 Jul 2022 11:20:24 +0000 (+0100)
Subject: disable statement unlikely for die after exec, sigh
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=0c3aa82b2a089f147cdeb12768b4e2eba2c34a8f

disable statement unlikely for die after exec, sigh
---

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
 </%args>
 
 <%perl>
+no warnings qw(exec);
+
 use BSD::Resource;
 
 my $emsg;