[Moscow.pm] Перехватить STDERR

[Dmitry E. Oboukhov]

RZ>> sub buffered_stderr {
RZ>> my $code = shift;
RZ>> my $buf = '';
RZ>> local *STDERR;
RZ>> open STDERR, '>:raw', \$buf;
RZ>> return $buf, $code->();
RZ>> }

RZ>> пойдет?

Tmppo> ухты работает
только на :raw open возвращает false и $! ставит в 
Permission denied

всеж атрибуты видимо для объектов в памяти не поддерживаются?

Tmppo> получается что с perl 5.8 модуль IO::String и не нужен, поскольку
Tmppo> нужную функциональность впихнули в open, а я это как-то упустил :)
Tmppo> --
Tmppo> ... mpd playing: U.D.O. - They Want War

Tmppo> . ''`.                               Dmitry E. Oboukhov
Tmppo> : :’  :   email: unera на debian.org jabber://UNera@uvw.ru
Tmppo> `. `~’              GPGKey: 1024D / F8E26537 2006-11-21
Tmppo> `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
--
... mpd playing: U.D.O. - Timebomb

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090114/3e637146/attachment.bin>