| line |
true |
false |
branch |
|
118
|
0 |
0 |
if $self->{'RECV_THROUGH_TEMP_FILE'} |
|
121
|
0 |
0 |
if defined $self->{'TEMP_FILE_HANDLE'} |
|
124
|
0 |
0 |
if defined $self->{'CHILD_HANDLE'} |
|
134
|
0 |
0 |
unless (defined $tmp_dir) |
|
142
|
0 |
0 |
unless (-d $tmp_dir) |
|
143
|
0 |
0 |
unless mkdir $tmp_dir |
|
160
|
0 |
0 |
unless $self->{'TEMP_FILE_HANDLE'} = createFile($self->{'TEMP_FILE_NAME'}, 'trw', {'Flags', 1}) |
|
178
|
0 |
0 |
if &_debugging_details() |
|
183
|
0 |
0 |
unless SetFilePointer($self->{'TEMP_FILE_HANDLE'}, 0, 0, FILE_BEGIN()) |
|
192
|
0 |
0 |
if &_debugging_details() |
|
196
|
0 |
0 |
if (defined ${$$self{'SOURCE'};}) |
|
199
|
0 |
0 |
if ($self->binmode) { } |
|
210
|
0 |
0 |
unless WriteFile($self->{'TEMP_FILE_HANDLE'}, $$data_ref, 0, $bytes_written, []) |
|
215
|
0 |
0 |
if &_debugging_data() |
|
222
|
0 |
0 |
if &_debugging_details() |
|
239
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
244
|
0 |
0 |
unless defined $self->{'TEMP_FILE_HANDLE'} |
|
250
|
0 |
0 |
unless ReadFile($self->{'TEMP_FILE_HANDLE'}, $s, 999999, $r, []) |
|
256
|
0 |
0 |
if &_debugging_data() |
|
258
|
0 |
0 |
unless $r |
|
260
|
0 |
0 |
unless $self->binmode |
|
294
|
0 |
0 |
if $self->{'SEND_THROUGH_TEMP_FILE'} or $self->{'RECV_THROUGH_TEMP_FILE'} |
|
308
|
0 |
0 |
if &_debugging_details() |
|
309
|
0 |
0 |
if &_debugging_details() |
|
313
|
0 |
0 |
$binmode ? : |
|
341
|
0 |
0 |
if &_debugging_details() |
|
344
|
0 |
0 |
unless Win32::Process::Create($process, $^X, $cmd_line, 1, NORMAL_PRIORITY_CLASS(), '.') |
|
360
|
0 |
0 |
unless close $stdin |
|
361
|
0 |
0 |
unless close $stdout |
|
369
|
0 |
0 |
if &_debugging_data() |
|
383
|
0 |
0 |
unless socket $listener, 2, 1, $tcp_proto |
|
385
|
0 |
0 |
unless setsockopt $listener, 1, 2, "\000\000\000\000" |
|
388
|
0 |
0 |
unless (bind $listener, sockaddr_in(0, $loopback)) |
|
394
|
0 |
0 |
if &_debugging_details() |
|
396
|
0 |
0 |
unless listen $listener, my $queue_size = 1 |
|
400
|
0 |
0 |
unless socket $client, 2, 1, $tcp_proto |
|
405
|
0 |
0 |
unless connect $client, $paddr |
|
408
|
0 |
0 |
unless defined $paddr |
|
414
|
0 |
0 |
unless setsockopt $client, 6, 1, "\000\000\000\000" |
|
419
|
0 |
0 |
if &_debugging_details() |
|
421
|
0 |
0 |
unless defined $paddr |
|
424
|
0 |
0 |
if &_debugging_details() |
|
445
|
0 |
0 |
unless binmode $self->{'PARENT_HANDLE'} |
|
446
|
0 |
0 |
unless binmode $self->{'PUMP_SOCKET_HANDLE'} |
|
449
|
0 |
0 |
if &_debugging_details() |
|
459
|
0 |
0 |
if ($is_send_to_child) { } |
|
461
|
0 |
0 |
unless pipe $self->{'CHILD_HANDLE'}, $self->{'PUMP_PIPE_HANDLE'} |
|
463
|
0 |
0 |
if &_debugging_details() |
|
465
|
0 |
0 |
if &_debugging_details() |
|
469
|
0 |
0 |
unless pipe $self->{'PUMP_PIPE_HANDLE'}, $self->{'CHILD_HANDLE'} |
|
471
|
0 |
0 |
if &_debugging_details() |
|
473
|
0 |
0 |
if &_debugging_details() |
|
500
|
0 |
0 |
if &_debugging_data() and $self->binmode |
|
504
|
0 |
0 |
$is_send_to_child ? : |
|
512
|
0 |
0 |
unless POSIX::read($parent_fd, $foo, 0) |
|
516
|
0 |
0 |
if &_debugging_details() |
|
526
|
0 |
0 |
if ($self->{'SEND_THROUGH_TEMP_FILE'}) { } |
|
|
0 |
0 |
elsif ($self->{'RECV_THROUGH_TEMP_FILE'}) { } |