diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 06:33:51 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 06:33:51 +0000 |
commit | 4f0770f3df78ecd5dcaefbd214f7a1415366bca6 (patch) | |
tree | 72661b8f81594b855bcc967b819263f63fa30e17 /debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL | |
parent | Adding upstream version 2.4.56. (diff) | |
download | apache2-4f0770f3df78ecd5dcaefbd214f7a1415366bca6.tar.xz apache2-4f0770f3df78ecd5dcaefbd214f7a1415366bca6.zip |
Adding debian version 2.4.56-1~deb11u2.debian/2.4.56-1_deb11u2
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL')
-rw-r--r-- | debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL b/debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL new file mode 100644 index 0000000..fa73355 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/cgi/nph-dripfeed.pl.PL @@ -0,0 +1,17 @@ +print "HTTP/1.0 200 OK\r\n"; +print "Transfer-Encoding: chunked\r\n"; +print "\r\n"; + +$| = 1; + +sub dripfeed { + my $s = shift; + + while (length($s)) { + select(undef, undef, undef, 0.2); + print substr($s, 0, 1); + $s = substr($s, 1); + } +} + +dripfeed "0005\r\nabcde\r\n1; foo=bar\r\nf\r\n0\r\n\r\n"; |