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 |