Lines Matching refs:fh
3222 if (open my $fh, $1) {
3224 push @cmdfhs, $fh;
3245 if (open my $fh, "> $file") {
3248 print $fh join("\n", @truelist);
3611 my $fh = ($doret eq $stack_depth ? $OUT : $LINEINFO);
3614 print $fh ' ' x $stack_depth if $frame & 16;
3617 print $fh "list context return from $sub:\n";
3618 dumpit($fh, \@ret);
3658 my $fh = ($doret eq $stack_depth ? $OUT : $LINEINFO);
3659 print $fh (' ' x $stack_depth) if $frame & 16;
3660 print $fh (
3665 dumpit($fh, $ret) if defined wantarray;
5376 my $fh = shift;
5380 if $fh eq $LINEINFO # slave editor
5422 print $fh
5428 print $fh "$sub[$i]{context} = $s$args" . " called from $file" .