vec($rin,fileno(DATA),1) = 1; for (;;) { $condition = ($Timeout == 0) || select($rout=$rin, undef, undef, $Timeout); if ($condition) { last unless ($len = sysread(DATA, $buf, 1024)); if($Ascii) { substr($buf,0,0)=$partial; ## prepend from last sysread @buf=split(/\r?\n/,$buf); ## break into lines if ($buf=~/\n$/) { $partial=''; } else { $partial=pop(@buf); } foreach(@buf) { print DFILE $_,"\n"; } } else { last unless ( (syswrite(DFILE,$buf,$len)==$len) ); } } else { $Error = "Timeout while recieving data from $Host"; return &xferclean(); } } close DATA; # <-- Zeile 271 ################# close DFILE;