| line |
true |
false |
branch |
|
117
|
0 |
0 |
if $self->{'RECV_THROUGH_TEMP_FILE'} |
|
120
|
0 |
0 |
if defined $self->{'TEMP_FILE_HANDLE'} |
|
123
|
0 |
0 |
if defined $self->{'CHILD_HANDLE'} |
|
133
|
0 |
0 |
unless (defined $tmp_dir) |
|
141
|
0 |
0 |
unless (-d $tmp_dir) |
|
142
|
0 |
0 |
unless mkdir $tmp_dir |
|
159
|
0 |
0 |
unless $self->{'TEMP_FILE_HANDLE'} = createFile($self->{'TEMP_FILE_NAME'}, "trw", {"Flags", 1}) |
|
177
|
0 |
0 |
if &_debugging_details() |
|
182
|
0 |
0 |
unless SetFilePointer($self->{'TEMP_FILE_HANDLE'}, 0, 0, FILE_BEGIN()) |
|
191
|
0 |
0 |
if &_debugging_details() |
|
195
|
0 |
0 |
if (defined ${$$self{"SOURCE"};}) |
|
198
|
0 |
0 |
if ($self->binmode) { } |
|
209
|
0 |
0 |
unless WriteFile($self->{'TEMP_FILE_HANDLE'}, $$data_ref, 0, $bytes_written, []) |
|
214
|
0 |
0 |
if &_debugging_data() |
|
221
|
0 |
0 |
if &_debugging_details() |
|
238
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
243
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
249
|
0 |
0 |
unless ReadFile($self->{'TEMP_FILE_HANDLE'}, $s, 999999, $r, []) |
|
255
|
0 |
0 |
if &_debugging_data() |
|
257
|
0 |
0 |
unless $r |
|
259
|
0 |
0 |
unless $self->binmode |
|
293
|
0 |
0 |
if $self->{'SEND_THROUGH_TEMP_FILE'} or $self->{'RECV_THROUGH_TEMP_FILE'} |
|
307
|
0 |
0 |
if &_debugging_details() |
|
308
|
0 |
0 |
if &_debugging_details() |
|
312
|
0 |
0 |
$binmode ? : |
|
340
|
0 |
0 |
if &_debugging_details() |
|
343
|
0 |
0 |
unless Win32::Process::Create($process, $^X, $cmd_line, 1, NORMAL_PRIORITY_CLASS(), ".") |
|
371
|
0 |
0 |
if &_debugging_data() |
|
385
|
0 |
0 |
unless socket $listener, 2, 1, $tcp_proto |
|
387
|
0 |
0 |
unless setsockopt $listener, 1, 2, "\0\0\0\0" |
|
390
|
0 |
0 |
unless (bind $listener, sockaddr_in(0, $loopback)) |
|
396
|
0 |
0 |
if &_debugging_details() |
|
398
|
0 |
0 |
unless listen $listener, my $queue_size = 1 |
|
402
|
0 |
0 |
unless socket $client, 2, 1, $tcp_proto |
|
407
|
0 |
0 |
unless connect $client, $paddr |
|
410
|
0 |
0 |
unless defined $paddr |
|
416
|
0 |
0 |
unless setsockopt $client, &IPPROTO_TCP(), 1, "\0\0\0\0" |
|
421
|
0 |
0 |
if &_debugging_details() |
|
423
|
0 |
0 |
unless defined $paddr |
|
426
|
0 |
0 |
if &_debugging_details() |
|
447
|
0 |
0 |
unless binmode $self->{'PARENT_HANDLE'} |
|
448
|
0 |
0 |
unless binmode $self->{'PUMP_SOCKET_HANDLE'} |
|
451
|
0 |
0 |
if &_debugging_details() |
|
461
|
0 |
0 |
if ($is_send_to_child) { } |
|
463
|
0 |
0 |
unless pipe $self->{'CHILD_HANDLE'}, $self->{'PUMP_PIPE_HANDLE'} |
|
465
|
0 |
0 |
if &_debugging_details() |
|
467
|
0 |
0 |
if &_debugging_details() |
|
471
|
0 |
0 |
unless pipe $self->{'PUMP_PIPE_HANDLE'}, $self->{'CHILD_HANDLE'} |
|
473
|
0 |
0 |
if &_debugging_details() |
|
475
|
0 |
0 |
if &_debugging_details() |
|
502
|
0 |
0 |
if &_debugging_data() and $self->binmode |
|
506
|
0 |
0 |
$is_send_to_child ? : |
|
514
|
0 |
0 |
unless POSIX::read($parent_fd, $foo, 0) |
|
518
|
0 |
0 |
if &_debugging_details() |
|
528
|
0 |
0 |
if ($self->{'SEND_THROUGH_TEMP_FILE'}) { } |
|
|
0 |
0 |
elsif ($self->{'RECV_THROUGH_TEMP_FILE'}) { } |