Lines Matching refs:size
22 my ($from,$to,$size) = @_;
23 my $text_mode = defined($size) && (ref($size) eq 'CODE' || $size < 0);
57 # If both are opened files we know they differ if their size differ
66 if (ref $size) {
67 # $size contains ref to comparison function
68 goto fail_inner if &$size($fline, $tline);
76 unless (defined($size) && $size > 0) {
77 $size = $fromsize || -s TO || 0;
78 $size = 1024 if $size < 512;
79 $size = $Too_Big if $size > $Too_Big;
84 while(defined($fr = read(FROM,$fbuf,$size)) && $fr > 0) {
89 goto fail_inner if defined($tr = read(TO,$tbuf,$size)) && $tr > 0;
125 # Using a negative buffer size puts compare into text_mode too