From d6be829bf56e699d27d388026d4af7ab710ba328 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 25 Jul 2015 16:30:09 +0100 Subject: Work around #793471 (madness with $SIG{__WARN__} and Perl's system builtin): move $SIG{} setting into setup_sigwarn in Dgit.pm, and check getppid. We also need to fix up the expectation for an error message in one of the tests, where the message changes as a side effect. --- infra/dgit-repos-policy-debian | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'infra/dgit-repos-policy-debian') diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index b6310d9..fbf2d51 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -2,7 +2,9 @@ # dgit repos policy hook script for Debian use strict; -$SIG{__WARN__} = sub { die $_[0]; }; + +use Debian::Dgit qw(:DEFAULT :policyflags); +setup_sigwarn(); use POSIX; use JSON; @@ -11,7 +13,6 @@ use DBI; use IPC::Open2; use Data::Dumper; -use Debian::Dgit qw(:DEFAULT :policyflags); use Debian::Dgit::Policy::Debian; initdebug('%'); -- cgit v1.2.3