diff options
Diffstat (limited to 'lib/PublicInbox/LeiUp.pm')
| -rw-r--r-- | lib/PublicInbox/LeiUp.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/PublicInbox/LeiUp.pm b/lib/PublicInbox/LeiUp.pm index 3e1ca21e..3011300d 100644 --- a/lib/PublicInbox/LeiUp.pm +++ b/lib/PublicInbox/LeiUp.pm @@ -159,6 +159,13 @@ sub event_step { # runs via PublicInbox::DS::requeue delete $l->{opt}->{all}; $l->qerr("# updating $self->{out}"); $l->{up_op_p} = $self->{op_p}; # ($l => $lei => script/lei) + my $cb = $SIG{__WARN__} // \&CORE::warn; + my $o = " (output: $self->{out})"; + local $SIG{__WARN__} = sub { + my @m = @_; + push(@m, $o) if !@m || $m[-1] !~ s/\n\z/$o\n/; + $cb->(@m); + }; eval { $l->dispatch('up', $self->{out}) }; $lei->child_error(0, $@) if $@ || $l->{failed}; # lei->fail() |