disable statement unlikely for die after exec, sigh

diff --git a/yarrg/commod-update-receiver b/yarrg/commod-update-receiver
index 42cd2532d23d8e321418babc161289662c596884..0258a51e04130c96ff24a3151095132dbfc3faee 100755 (executable)
--- 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 4c90f8489669e858c9ae74e10d3b2a38688d1ef7..feef04b641e23a2ccbfa04a309f8a9dafd42ccce 100755 (executable)
--- 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 151824cdec7a8a77db75f0b6b1c0c1055a0da2fa..126c4e804d860a807d5abfb57b5dd36dd66a728c 100644 (file)
--- 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;