--- lib/PXElator/httpd.pm 2009/08/01 00:39:36 106 +++ lib/PXElator/httpd.pm 2009/08/01 00:44:52 107 @@ -78,14 +78,14 @@ my $last_t = $start_t; while( my $len = read $fh, $buff, $block ) { - syswrite $client,$buff; + print $client $buff; $client->flush; $pos += $len; my $t = time(); next unless $t - $last_t > 0.75; $last_t = $t; my $speed = ( $pos ) / ( $t - $start_t ); - printf STDERR "%s %d/%d %.2f%% %.2f K/s ETA %.1fs\r" + printf STDERR "%s %d/%d %.2f%% %.2f K/s ETA %.1fs \r" , $path, $pos , $size, $pos * 100 / $size , $speed / 1024 @@ -97,7 +97,9 @@ print STDERR "\n"; - exit; + warn "exit static child"; + + exit(0); } use boolean;