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: [PATCH] Turn all perl warnings into errors

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

diff --git a/debian/changelog b/debian/changelog
index b925ce71..2dc8ab14 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -63,6 +63,8 @@ dgit (0.23~) unstable; urgency=low
 
   * Use ftpmasterapi archive query method.  (Closes:#727702.)
 
+  * Turn all perl warnings into errors using $SIG{__WARN__}.
+
  --
 
 dgit (0.22.1) unstable; urgency=high
diff --git a/dgit b/dgit
index 68d8b42d..1f1c425d 100755
--- a/dgit
+++ b/dgit
@@ -18,6 +18,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
+$SIG{__WARN__} = sub { die $_[0]; };
 
 use IO::Handle;
 use Data::Dumper;
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 526db03d..88eb4fce 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 560f1ad3..51550146 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)
-- 
2.30.2