What is the fileno of that c/xs stderr versus perl's STDERR?
Maybe you can fake it
sub flushall { for my $fileno (0..1024){ ## blah blah constants open my($fake), "<&=$fileno"; ## UGLY $fake->flush; } }
Maybe you can fake it
sub flushall { use POSIX(); for my $fileno (0.. POSIX::dup( fileno( STDERR) ) ){ open my($fake), ">&=$fileno"; ## UGLY $fake->flush; } }
In reply to Re^3: Flush all opened STDIO streams
by Anonymous Monk
in thread Flush all opened STDIO streams
by dmitnin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |