| line |
true |
false |
branch |
|
198
|
0 |
0 |
unless $st |
|
204
|
0 |
0 |
unless $st |
|
210
|
0 |
0 |
unless (defined $filein and length $filein and -e $filein) |
|
214
|
0 |
0 |
unless (defined $fileout and length $fileout) |
|
220
|
0 |
0 |
unless (my $infh = 'IO::File'->new($filein, 'r')) |
|
224
|
0 |
0 |
unless ($infh->binmode) |
|
228
|
0 |
0 |
unless (my $outfh = 'IO::File'->new($fileout, 'w')) |
|
232
|
0 |
0 |
unless ($outfh->binmode) |
|
240
|
0 |
0 |
unless ($outfh->write($tcd->encrypt($buf), 32768)) |
|
246
|
0 |
0 |
unless ($outfh->close) |
|
250
|
0 |
0 |
unless ($infh->close) |
|
259
|
0 |
0 |
unless (defined $filein and length $filein and -e $filein) |
|
263
|
0 |
0 |
unless (defined $fileout and length $fileout) |
|
269
|
0 |
0 |
unless (my $infh = 'IO::File'->new($filein, 'r')) |
|
273
|
0 |
0 |
unless ($infh->binmode) |
|
277
|
0 |
0 |
unless (my $outfh = 'IO::File'->new($fileout, 'w')) |
|
281
|
0 |
0 |
unless ($outfh->binmode) |
|
289
|
0 |
0 |
unless ($outfh->write($tcd->decrypt($buf), 16384)) |
|
295
|
0 |
0 |
unless ($outfh->close) |
|
299
|
0 |
0 |
unless ($infh->close) |