Simple test to reproduce.
#!/usr/bin/perl
use warnings;
use strict;
open STDERR, '>', 'stderr' or die "Can't reopen STDERR: $!";
open my $stderr, '<', 'stderr' or die "Can't open stderr file: $!";
if (fork() == 0) {
print STDERR "SEE-THIS";
sleep 1;
print STDERR "AND-THAT";
exit 0;
}
use Data::Dumper;
select undef, undef, undef, 0.1 until -s 'stderr' > 0;
my $n = -s 'stderr';
print Dumper <$stderr>;
print "size = $n pos = ", tell $stderr, "\n";
select undef, undef, undef, 0.1 until -s 'stderr' > $n;
$n = -s 'stderr';
print Dumper <$stderr>;
print "size = $n pos = ", tell $stderr, "\n";
###############################################################################
vanilla perl$ perl test_readline.t
$VAR1 = 'SEE-THIS';
size = 8 pos = 8
$VAR1 = 'AND-THAT';
size = 16 pos = 16
80c1f1e45e8e$ perl test_readline.t
$VAR1 = 'SEE-THIS';
size = 8 pos = 8
size = 16 pos = 8
_______________________________________________
nginx-devel mailing list
nginx-devel@nginx.org
https://mailman.nginx.org/mailman/listinfo/nginx-devel