22 lines
621 B
Perl
22 lines
621 B
Perl
# This is a regression test for PR 31247.
|
|
|
|
# By sleeping, it ensures that the CGI bucket is left in the brigade
|
|
# (the first 8K will be morphed into a HEAP bucket), and hence *must*
|
|
# be setaside correctly when the byterange filter calls
|
|
# ap_save_brigade().
|
|
|
|
# Without the fix for PR 31247, the STDOUT content does not get
|
|
# consumed as expected, so the server will deadlock as it tries to
|
|
# consume STDERR after script execution in mod_cgi, whilst the script
|
|
# tries to write to STDOUT. So close STDERR to avoid that.
|
|
|
|
close STDERR;
|
|
|
|
print "Content-type: text/plain\n\n";
|
|
|
|
print "x"x8192;
|
|
|
|
sleep 1;
|
|
|
|
print "x"x8192;
|
|
|