| line |
true |
false |
branch |
|
92
|
0 |
6 |
unless open $handle, "<$fname" |
|
97
|
5 |
1 |
if ($tag) { } |
|
98
|
0 |
5 |
if (read($handle, $buf, 1) != 1 or unpack('C', $buf) != $tag) |
|
116
|
0 |
0 |
unless open $handle, ">$fname" |
|
128
|
0 |
69 |
unless ($ip, $port) = &unpackAddr |
|
129
|
0 |
69 |
unless $meta = &unpackMetaListU |
|
145
|
0 |
0 |
unless defined $ip and defined $port |
|
146
|
0 |
0 |
unless $name |
|
147
|
0 |
0 |
unless $desc |
|
148
|
0 |
0 |
unless $preference |
|
155
|
0 |
0 |
if defined $nusers |
|
156
|
0 |
0 |
if defined $nfiles |
|
163
|
0 |
0 |
unless defined($n = &unpackD) |
|
166
|
0 |
0 |
unless $d = &unpackServerDesc |
|
189
|
0 |
1 |
unless defined($n = &unpackD) |
|
192
|
0 |
69 |
unless $d = &unpackServerDesc |
|
215
|
0 |
1 |
unless &unpackB == 14 |
|
229
|
0 |
1 |
unless $buf = readFile($fname, 14) |
|
232
|
0 |
1 |
if ($res and $off != length $$buf) |
|
249
|
0 |
1 |
unless $v == 225 |
|
262
|
0 |
1 |
unless $buf = readFile($fname, 225) |
|
266
|
0 |
1 |
if ($res and $off != length $$buf) |
|
282
|
0 |
1 |
unless &unpackB == 14 |
|
294
|
0 |
1 |
unless $buf = readFile($fname, 14) |
|
297
|
0 |
1 |
if ($res and $off != length $$buf) |
|
313
|
0 |
1 |
unless ($ip, $port) = &unpackAddr |
|
314
|
0 |
1 |
unless $hash = &unpackHash |
|
315
|
0 |
1 |
unless $meta = &unpackMetaListU |
|
316
|
0 |
1 |
unless $pref = &unpackMetaListU |
|
339
|
0 |
1 |
unless $buf = readFile($fname) |
|
342
|
0 |
1 |
if ($res and $off != length $$buf) |