| line |
true |
false |
branch |
|
34
|
0 |
0 |
$_[0] < $_[1] ? : |
|
40
|
0 |
0 |
unless defined $debug |
|
46
|
0 |
0 |
unless defined $fn1 |
|
48
|
0 |
0 |
unless defined $fn1 |
|
53
|
0 |
0 |
if $debug |
|
54
|
0 |
0 |
if $debug |
|
59
|
0 |
0 |
if ($debug) |
|
71
|
0 |
0 |
unless ($^O =~ /Win32/) |
|
72
|
0 |
0 |
unless fcntl $s1, 4, fcntl($s1, 3, 0) | 2048 |
|
74
|
0 |
0 |
unless fcntl $s2, 4, fcntl($s2, 3, 0) | 2048 |
|
86
|
0 |
0 |
if ($ssl1 and $wtr1 and $s1->pending) |
|
87
|
0 |
0 |
if sysread $s1, $b1to2, _min($s1->pending, $io_buffer_size), length $b1to2 |
|
92
|
0 |
0 |
if ($ssl2 and $wtr2 and $s2->pending) |
|
93
|
0 |
0 |
if sysread $s2, $b2to1, _min($s2->pending, $io_buffer_size), length $b2to1 |
|
100
|
0 |
0 |
if $debug |
|
102
|
0 |
0 |
unless ($wtr1 or $wtr2 or $wtw1 or $wtw2) |
|
103
|
0 |
0 |
if $debug |
|
110
|
0 |
0 |
if $wtr1 and not $ssl_wtw1 or $ssl_wtr1 |
|
111
|
0 |
0 |
if $wtr2 and not $ssl_wtw2 or $ssl_wtr2 |
|
113
|
0 |
0 |
if $wtw1 and not $ssl_wtr1 or $ssl_wtw1 |
|
114
|
0 |
0 |
if $wtw2 and not $ssl_wtr2 or $ssl_wtw2 |
|
116
|
0 |
0 |
if $debug |
|
120
|
0 |
0 |
if $debug |
|
122
|
0 |
0 |
if ($n > 0) |
|
123
|
0 |
0 |
$ssl_wtw1 ? : |
|
|
0 |
0 |
if ($wtr1 and vec $ssl_wtw1 ? $bitsw : $bitsr, $fn1, 1) |
|
124
|
0 |
0 |
if $debug |
|
126
|
0 |
0 |
if $debug |
|
127
|
0 |
0 |
if ($bytes) { } |
|
|
0 |
0 |
elsif ($ssl1 and not defined $bytes) { } |
|
|
0 |
0 |
elsif ($ssl_wtw1) { } |
|
129
|
0 |
0 |
if $debug |
|
132
|
0 |
0 |
if (_ssl_error() == _ssl_want_write()) { } |
|
|
0 |
0 |
elsif (_ssl_error() == _ssl_want_read()) { } |
|
134
|
0 |
0 |
if $debug |
|
137
|
0 |
0 |
if $debug |
|
148
|
0 |
0 |
if $debug |
|
152
|
0 |
0 |
$ssl_wtw2 ? : |
|
|
0 |
0 |
if ($wtr2 and vec $ssl_wtw2 ? $bitsw : $bitsr, $fn2, 1) |
|
153
|
0 |
0 |
if $debug |
|
155
|
0 |
0 |
if $debug |
|
156
|
0 |
0 |
if ($bytes) { } |
|
|
0 |
0 |
elsif ($ssl2 and not defined $bytes) { } |
|
|
0 |
0 |
elsif ($ssl_wtw2) { } |
|
158
|
0 |
0 |
if $debug |
|
161
|
0 |
0 |
if (_ssl_error() == _ssl_want_write()) { } |
|
|
0 |
0 |
elsif (_ssl_error() == _ssl_want_read()) { } |
|
163
|
0 |
0 |
if $debug |
|
166
|
0 |
0 |
if $debug |
|
176
|
0 |
0 |
if $debug |
|
180
|
0 |
0 |
$ssl_wtr1 ? : |
|
|
0 |
0 |
if ($wtw1 and vec $ssl_wtr1 ? $bitsr : $bitsw, $fn1, 1) |
|
181
|
0 |
0 |
if $debug |
|
183
|
0 |
0 |
if $debug |
|
184
|
0 |
0 |
if ($bytes) { } |
|
|
0 |
0 |
elsif ($ssl1 and not defined $bytes) { } |
|
185
|
0 |
0 |
if $debug |
|
187
|
0 |
0 |
if ($s2_in_closed and not length $b2to1) |
|
188
|
0 |
0 |
if $debug |
|
189
|
0 |
0 |
unless $ssl1 |
|
196
|
0 |
0 |
if (_ssl_error() == _ssl_want_read()) { } |
|
|
0 |
0 |
elsif (_ssl_error() == _ssl_want_write()) { } |
|
198
|
0 |
0 |
if $debug |
|
201
|
0 |
0 |
if length $b2to1 < $write_chunk_size1 |
|
202
|
0 |
0 |
if $debug |
|
210
|
0 |
0 |
if $debug |
|
214
|
0 |
0 |
$ssl_wtr2 ? : |
|
|
0 |
0 |
if ($wtw2 and vec $ssl_wtr2 ? $bitsr : $bitsw, $fn2, 1) |
|
215
|
0 |
0 |
if $debug |
|
217
|
0 |
0 |
if $debug |
|
218
|
0 |
0 |
if ($bytes) { } |
|
|
0 |
0 |
elsif ($ssl2 and not defined $bytes) { } |
|
219
|
0 |
0 |
if $debug |
|
221
|
0 |
0 |
if ($s1_in_closed and length $b1to2) |
|
222
|
0 |
0 |
if $debug |
|
223
|
0 |
0 |
unless $ssl2 |
|
230
|
0 |
0 |
if (_ssl_error() == _ssl_want_read()) { } |
|
|
0 |
0 |
elsif (_ssl_error() == _ssl_want_write()) { } |
|
232
|
0 |
0 |
if $debug |
|
235
|
0 |
0 |
if length $b1to2 < $write_chunk_size2 |
|
236
|
0 |
0 |
if $debug |
|
244
|
0 |
0 |
if $debug |
|
248
|
0 |
0 |
if (%close) |
|
250
|
0 |
0 |
if ($ssl1 and $close{'s1in'} || $close{'s1out'}) |
|
253
|
0 |
0 |
if ($ssl2 and $close{'s2in'} || $close{'s2out'}) |
|
256
|
0 |
0 |
if ($close{'s1in'} and not length $b1to2) |
|
259
|
0 |
0 |
if ($close{'s2in'} and not length $b2to1) |
|
263
|
0 |
0 |
if ($close{'s1in'}) |
|
264
|
0 |
0 |
if $debug |
|
268
|
0 |
0 |
if ($close{'s2in'}) |
|
269
|
0 |
0 |
if $debug |
|
273
|
0 |
0 |
if ($close{'s1out'}) |
|
274
|
0 |
0 |
if $debug |
|
278
|
0 |
0 |
if ($close{'s2out'}) |
|
279
|
0 |
0 |
if $debug |