summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/htdocs/modules/cgi/big.pl.PL
blob: 636fb6638ed3d7b73c4e81dd6cceb6e5fdc5c55e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# 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;