diff options
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/httpd b/tests/httpd index 9fd23e7..682556b 100644 --- a/tests/httpd +++ b/tests/httpd @@ -69,7 +69,7 @@ proc httpdRead { sock } { httpd_log $sock Error "bad first line:$line" httpdSockDone $sock } - if {[regexp {[\?&]delay=([^&]+)} val]} { + if {[regexp {(?:^|[\?&])delay=([^&]+)} $data(query) {} val]} { fileevent $sock readable {} after $val [list fileevent $sock readable [list httpdRead $sock]] } |