Lines Matching refs:fh
48 my ($fh, $LineNum) = @_;
53 while ($cont && ($line = <$fh>)) {
257 my($fh, $Ttl, $obj, $msg) = @_;
260 print $fh "$obj: $msg\n";
262 print $fh "==== $obj ====\n" if ($$Ttl++ eq 0);
263 print $fh "\t$msg\n";
268 my ($fh, $Ttl, $old_obj, $new_obj, $msg) = @_;
272 OutMsg($fh, $Ttl, $old_obj, $msg);
302 my ($fh, $ScriptPath, $Argv) = @_;
305 print $fh "#\n";
306 print $fh "# Copyright $year Sun Microsystems, Inc. ",
308 print $fh "# Use is subject to license terms.\n#\n";
319 print $fh $Line if $out;
322 print $fh "#\n\n";
326 print $fh '# Date: ', scalar(localtime()), "\n";
329 print $fh "# Command: $ScriptPath ", join(' ', @$Argv), "\n\n";