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

[Dmitry E. Oboukhov]

On 18:16 Wed 14 Jan     , Ruslan Zakirov wrote:
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> пойдет?

ухты работает

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

. ''`.                               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/53276cf1/attachment.bin>