Make warnings fatal in dpkg-repos-admin-debian, dgit-ssh-dispatch (using setup_sigwarn).

diff --git a/debian/changelog b/debian/changelog
index 2e6e7447bc1666834952118617849ab9fbfe54a2..2a49514247057ea94738407fb7e8c87d3dc60442 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -28,6 +28,8 @@ dgit (1.1) unstable; urgency=low
   * Work around #793471 (madness with $SIG{__WARN__} and Perl's system
     builtin): move $SIG{} setting into setup_sigwarn in Dgit.pm, and
     check getppid.
+  * Make warnings fatal in dpkg-repos-admin-debian, dgit-ssh-dispatch
+    (using setup_sigwarn).
 
  --
 

diff --git a/infra/dgit-repos-admin-debian b/infra/dgit-repos-admin-debian
index 926431bfaf96f401b4c93470fd1e7e18242e0bb7..e292bfa70e9e4c6e94c8cc1d8eb1366b84b36c04 100755 (executable)
--- a/infra/dgit-repos-admin-debian
+++ b/infra/dgit-repos-admin-debian
@@ -1,6 +1,11 @@
 #!/usr/bin/perl -w
 # dgit repos policy admin script for Debian
 
+use strict;
+
+use Debian::Dgit;
+setup_sigwarn();
+
 our $usage = <<'END';
 usage:
   dgit-repos-admin-debian [<options>] operation...
@@ -16,11 +21,9 @@ operations:
   untaint [--global|<package>] <gitobjid>
 END
 
-use strict;
 use POSIX;
 use DBI;
 
-use Debian::Dgit;
 use Debian::Dgit::Policy::Debian;
 
 sub badusage ($) { die "bad usage: $_[0]\n$usage"; }

diff --git a/infra/dgit-ssh-dispatch b/infra/dgit-ssh-dispatch
index 9c023d80859fecd63cbc6ca64dfc925818bfc473..17db26887ce744c92704eaa69d1fdafb6e5edaee 100755 (executable)
--- a/infra/dgit-ssh-dispatch
+++ b/infra/dgit-ssh-dispatch
@@ -1,9 +1,11 @@
 #!/usr/bin/perl -w
 
 use strict;
-use POSIX;
 
 use Debian::Dgit;
+setup_sigwarn();
+
+use POSIX;
 
 open DEBUG, '>/dev/null' or die $!;
 if (@ARGV && $ARGV[0] eq '-D') {