| use strict; | |
| use warnings FATAL => 'all'; | |
| local $| = 1; # unbuffered mode | |
| my $r = shift; | |
| print "Content-Type: text/html\n\n"; | |
| print "yet another boring test string"; | |
| # This line passes a bucket brigade with a single bucket FLUSH | |
| # it was causing problems in the mod_deflate filter which was trying to | |
| # deflate empty output buffer, (the previous print has already flushed | |
| # all the output) (the fix in mod_deflate.c was to check whether the | |
| # buffer is full) | |
| print ""; | |