| line |
true |
false |
branch |
|
119
|
0 |
0 |
if $self->{'RECV_THROUGH_TEMP_FILE'} |
|
122
|
0 |
0 |
if defined $self->{'TEMP_FILE_HANDLE'} |
|
125
|
0 |
0 |
if defined $self->{'CHILD_HANDLE'} |
|
135
|
0 |
0 |
unless (defined $tmp_dir) |
|
143
|
0 |
0 |
unless (-d $tmp_dir) |
|
144
|
0 |
0 |
unless mkdir $tmp_dir |
|
161
|
0 |
0 |
unless $self->{'TEMP_FILE_HANDLE'} = createFile($self->{'TEMP_FILE_NAME'}, "trw", {"Flags", 1}) |
|
179
|
0 |
0 |
if &_debugging_details() |
|
184
|
0 |
0 |
unless SetFilePointer($self->{'TEMP_FILE_HANDLE'}, 0, 0, FILE_BEGIN()) |
|
193
|
0 |
0 |
if &_debugging_details() |
|
197
|
0 |
0 |
if (defined ${$$self{"SOURCE"};}) |
|
200
|
0 |
0 |
if ($self->binmode) { } |
|
211
|
0 |
0 |
unless WriteFile($self->{'TEMP_FILE_HANDLE'}, $$data_ref, 0, $bytes_written, []) |
|
216
|
0 |
0 |
if &_debugging_data() |
|
223
|
0 |
0 |
if &_debugging_details() |
|
240
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
245
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
251
|
0 |
0 |
unless ReadFile($self->{'TEMP_FILE_HANDLE'}, $s, 999999, $r, []) |
|
257
|
0 |
0 |
if &_debugging_data() |
|
259
|
0 |
0 |
unless $r |
|
261
|
0 |
0 |
unless $self->binmode |
|
295
|
0 |
0 |
if $self->{'SEND_THROUGH_TEMP_FILE'} or $self->{'RECV_THROUGH_TEMP_FILE'} |
|
309
|
0 |
0 |
if &_debugging_details() |
|
310
|
0 |
0 |
if &_debugging_details() |
|
314
|
0 |
0 |
$binmode ? : |
|
342
|
0 |
0 |
if &_debugging_details() |
|
345
|
0 |
0 |
unless Win32::Process::Create($process, $^X, $cmd_line, 1, NORMAL_PRIORITY_CLASS(), ".") |
|
373
|
0 |
0 |
if &_debugging_data() |
|
387
|
0 |
0 |
unless socket $listener, 2, 1, $tcp_proto |
|
389
|
0 |
0 |
unless setsockopt $listener, 1, 2, "\0\0\0\0" |
|
392
|
0 |
0 |
unless (bind $listener, sockaddr_in(0, $loopback)) |
|
398
|
0 |
0 |
if &_debugging_details() |
|
400
|
0 |
0 |
unless listen $listener, my $queue_size = 1 |
|
404
|
0 |
0 |
unless socket $client, 2, 1, $tcp_proto |
|
409
|
0 |
0 |
unless connect $client, $paddr |
|
412
|
0 |
0 |
unless defined $paddr |
|
418
|
0 |
0 |
unless setsockopt $client, &IPPROTO_TCP(), 1, "\0\0\0\0" |
|
423
|
0 |
0 |
if &_debugging_details() |
|
425
|
0 |
0 |
unless defined $paddr |
|
428
|
0 |
0 |
if &_debugging_details() |
|
449
|
0 |
0 |
unless binmode $self->{'PARENT_HANDLE'} |
|
450
|
0 |
0 |
unless binmode $self->{'PUMP_SOCKET_HANDLE'} |
|
453
|
0 |
0 |
if &_debugging_details() |
|
463
|
0 |
0 |
if ($is_send_to_child) { } |
|
465
|
0 |
0 |
unless pipe $self->{'CHILD_HANDLE'}, $self->{'PUMP_PIPE_HANDLE'} |
|
467
|
0 |
0 |
if &_debugging_details() |
|
469
|
0 |
0 |
if &_debugging_details() |
|
473
|
0 |
0 |
unless pipe $self->{'PUMP_PIPE_HANDLE'}, $self->{'CHILD_HANDLE'} |
|
475
|
0 |
0 |
if &_debugging_details() |
|
477
|
0 |
0 |
if &_debugging_details() |
|
504
|
0 |
0 |
if &_debugging_data() and $self->binmode |
|
508
|
0 |
0 |
$is_send_to_child ? : |
|
516
|
0 |
0 |
unless POSIX::read($parent_fd, $foo, 0) |
|
520
|
0 |
0 |
if &_debugging_details() |
|
530
|
0 |
0 |
if ($self->{'SEND_THROUGH_TEMP_FILE'}) { } |
|
|
0 |
0 |
elsif ($self->{'RECV_THROUGH_TEMP_FILE'}) { } |