| OLD | NEW |
| (Empty) |
| 1 #!/usr/bin/perl -wT | |
| 2 | |
| 3 # flush the buffers after each print | |
| 4 select (STDOUT); | |
| 5 $| = 1; | |
| 6 | |
| 7 print "Content-Type: text/plain\n"; | |
| 8 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n"; | |
| 9 print "Cache-Control: no-store, no-cache, must-revalidate\n"; | |
| 10 print "Pragma: no-cache\n"; | |
| 11 print "\n"; | |
| 12 | |
| 13 print "\xef\xbb\xbfTest for bug 5187: UTF-8 in long text files breaks at some po
int.\n\n"; | |
| 14 for ($count=1; $count<2000; $count++) { | |
| 15 print "\x65\xcc\x81"; | |
| 16 } | |
| 17 sleep 10; | |
| 18 for ($count=1; $count<2000; $count++) { | |
| 19 print "\x65\xcc\x81"; | |
| 20 } | |
| 21 sleep 10; | |
| 22 for ($count=1; $count<2000; $count++) { | |
| 23 print "\x65\xcc\x81"; | |
| 24 } | |
| OLD | NEW |