Lines Matching refs:TO
26 local (*FROM, *TO);
47 *TO = *$to;
49 *TO = $to;
51 open(TO,"<",$to) or goto fail_open2;
52 binmode TO unless $text_mode;
58 goto fail_inner if $fromsize != -s TO;
65 goto fail_inner unless defined($tline = <TO>);
73 goto fail_inner if defined($tline = <TO>);
77 $size = $fromsize || -s TO || 0;
85 unless (defined($tr = read(TO,$tbuf,$fr)) && $tbuf eq $fbuf) {
89 goto fail_inner if defined($tr = read(TO,$tbuf,$size)) && $tr > 0;
92 close(TO) || goto fail_open2 if $closeto;
99 close(TO) || goto fail_open2 if $closeto;