Turn all perl warnings into errors

diff --git a/debian/changelog b/debian/changelog
index b925ce710de5b3bdd3c0c20287c8c8cc1647114e..2dc8ab14c792dd9491632c292e00b9a1aa52d53f 100644 (file)
--- 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 68d8b42d1da15ee921157f67f70aa7b793308f6a..1f1c425d1f95eaded35208faa49946c9b080b0de 100755 (executable)
--- 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 526db03db8660f252e73355b33d28749e5d6d2cf..88eb4fce20c3285412781d82cc216839f312af2d 100755 (executable)
--- 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 560f1ad3664f0d2134adc003b7a81f00b0a57096..515501460a3ffb944fcb2ee4fb3049956922e403 100755 (executable)
--- 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)