Bug#554945: Autoflushing of stdout is broken with perl 5.10

[Eugene V. Lyubimkin]

Hi Roger,

Roger Leigh wrote:
> Package: perl
> Version: 5.10.1-6
> Severity: normal
> 
> This thread also describes the problem:
>   
> http://coding.derkeiler.com/Archive/Perl/comp.lang.perl.misc/2009-06/msg00035.html
Actually, the thread conclusion is the construction itself works. See three
last messages. Personally, I use STDOUT flushing in one of my Perl programs
and it works fine.

Moreover, this program which uses dup() works perfectly fine:

-8<-
#!/usr/bin/perl -w

use strict;
use warnings;

use FileHandle;
use POSIX;

my $new_stdout = FileHandle->new_from_fd(dup(fileno(STDOUT)), 'w');
$new_stdout->autoflush(1);

while (1) {
        print { $new_stdout } 'a';
        sleep(1);
}
->8-

Can you construct a small program to reproduce?

-- 
Eugene V. Lyubimkin aka JackYF, JID: jackyf.devel(maildog)gmail.com
C++/Perl developer, Debian Developer

signature.asc
Description: OpenPGP digital signature