… | … | ||
---|---|---|---|
40 | 40 | ||
41 | $cv->broadcast | 41 | $cv->broadcast |
42 | } | 42 | } |
43 | ); | 43 | ); |
44 | 44 | ||
45 | $hdl->push_read_chunk (10, sub { | 45 | $hdl->push_read (chunk => 10, sub { |
46 | my ($hdl, $data) = @_; | 46 | my ($hdl, $data) = @_; |
47 | 47 | ||
48 | unless (substr ($data, 0, 4) eq 'HTTP') { | 48 | unless (substr ($data, 0, 4) eq 'HTTP') { |
49 | print "not "; | 49 | print "not "; |
50 | } | 50 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |