Телеграмм чат группы modernperl страница 8880

А можно ли как-то найти кто из модулей в проекте пишет в STDERR? У меня летит ошибка и я не могу найти откуда она берется, по тексту ошибки не находится ничего

источник

13:33пожаловаться #5

ММ

Максим Максимов... in Modern::Perl

грепни по модулям print, warn

источник

13:39пожаловаться #6

Yegor K in Modern::Perl

+ грепнуть по cpan-у: https://grep.metacpan.org/ (иногда xs-модуль)

источник

13:40пожаловаться #7

Roman in Modern::Perl

Закрыть STDERR, пусть сломается ))

источник

13:49пожаловаться #8

ММ

Максим Максимов... in Modern::Perl

как варик посмотреть дебаггером

источник

13:50пожаловаться #9

Vladimir Varlamov in Modern::Perl

Carp::Always

источник

13:52пожаловаться #10

Sergey in Modern::Perl

Не сломается. Даже не поварнит.

источник

13:52пожаловаться #11

Vadim Goncharov in Modern::Perl

примерно так:

sub install_AE_log_SIG_WARN {
    my $func = $_[0] ? \&Carp::shortmess : \&Carp::longmess;
    $SIG{__WARN__} = sub {
        scalar( grep /AnyEvent|\blog/, map { (caller($_))[0..3] } (1..3) )
            ? warn $_[0]
            : AE::log warn => &$func;
    };
}

источник

14:00пожаловаться #12

Sergey Zhmylove in Modern::Perl

Может у него xs делает write (2, тогда не поможет.
Если исходники открыты, то по тексту ошибки надо найти.

источник

14:07пожаловаться #13

Sergey Zhmylove in Modern::Perl

Ууу

источник

15:36пожаловаться #14

Sergey Zhmylove in Modern::Perl

Не работает твой пример с localhost: bad_expected_access panda::error bind error (3:unievent)