diff options
Diffstat (limited to 'Debian')
-rw-r--r-- | Debian/Dgit.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index edb338c..d66b712 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -15,7 +15,8 @@ BEGIN { $VERSION = 1.00; @ISA = qw(Exporter); - @EXPORT = qw(debiantag server_branch server_ref + @EXPORT = qw(setup_sigwarn + debiantag server_branch server_ref stat_exists fail ensuredir waitstatusmsg failedcmd cmdoutput cmdoutput_errok git_rev_parse git_get_ref git_for_each_ref @@ -48,6 +49,13 @@ sub FRESHREPO () { return 0x4; } our $debugprefix; our $debuglevel = 0; +sub setup_sigwarn () { + our $sigwarn_mainprocess = $$; + $SIG{__WARN__} = sub { + die $_[0] unless getppid == $sigwarn_mainprocess; + }; +} + sub initdebug ($) { ($debugprefix) = @_; open DEBUG, ">/dev/null" or die $!; |