LayoutTests/http/tests/resources/slow-script.pl - Issue 135583003: checkpoint Blink-side work to use Apache on Windows

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: LayoutTests/http/tests/resources/slow-script.pl

Issue 135583003: checkpoint Blink-side work to use Apache on Windows (Closed) Base URL: https://chromium.googlesource.com/chromium/blink.git@master

Patch Set: new rollup patch Created 6 years, 10 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

View unified diff | Download patch

« no previous file with comments | « LayoutTests/http/tests/resources/post-and-verify-hybrid.cgi ('k') | LayoutTests/http/tests/security/resources/escape-form-data-field-names.cgi » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Hide Comments ('s')

OLD	NEW
1 #!/usr/bin/perl -w	1 #!/usr/bin/perl -wT

2	2

3 use strict;	3 use strict;

4 use CGI;	4 use CGI;

5 use Time::HiRes qw(sleep);	5 use Time::HiRes qw(sleep);

6	6

7 my $cgi = new CGI;	7 my $cgi = new CGI;

8 my $delay = $cgi->param('delay');	8 my $delay = $cgi->param('delay');

9 $delay = 5000 unless $delay;	9 $delay = 5000 unless $delay;

10	10

11 # flush the buffers after each print	11 # flush the buffers after each print

12 select (STDOUT);	12 select (STDOUT);

13 $\| = 1;	13 $\| = 1;

14	14

15 print "Content-Type: application/javascript\n";	15 print "Content-Type: application/javascript\n";

16 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n";	16 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n";

17 print "Cache-Control: no-store, no-cache, must-revalidate\n";	17 print "Cache-Control: no-store, no-cache, must-revalidate\n";

18 print "Pragma: no-cache\n";	18 print "Pragma: no-cache\n";

19 print "\n";	19 print "\n";

20	20

21 sleep $delay / 1000;	21 sleep $delay / 1000;

22	22

23	23

OLD	NEW