| Subject: | IO::Capture::Stdout incorrectly captures value of "say" |
Example:
use 5.010;
use IO::Capture::Stdout;
$str = qq{Hello World};
my $capture = IO::Capture::Stdout->new();
$capture->start;
say "$str";
$capture->stop;
my $cat = join q{}, $capture->read();
print "-$cat-\n";
Prints $str without newline.
Windows XP, Strawberry Perl 5.10.
--
Alexandr Ciornii, http://chorny.net