From 85967df816321c56d70cbfda75994285975347d1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 28 Apr 2015 13:06:02 +0100
Subject: Turn all perl warnings into errors

---
 infra/dgit-repos-policy-debian | 2 ++
 infra/dgit-repos-server        | 1 +
 2 files changed, 3 insertions(+)

(limited to 'infra')

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 526db03..88eb4fc 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -2,6 +2,8 @@
 # dgit repos policy hook script for Debian
 
 use strict;
+$SIG{__WARN__} = sub { die $_[0]; };
+
 use POSIX;
 use JSON;
 use File::Temp qw(tempfile);
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 560f1ad..5155014 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -26,6 +26,7 @@
 #   mDM.TXT
 
 use strict;
+$SIG{__WARN__} = sub { die $_[0]; };
 
 # DGIT-REPOS-DIR contains:
 # git tree (or other object)      lock (in acquisition order, outer first)
-- 
cgit v1.2.3