Lines Matching refs:program

271 my $program = program_basename $ARGV[0];
272 my $package = $program;
302     $program = program_basename $1;
308     $program = program_basename $2;
309     $package = $1 ? "$1$program" : $program;
318 $opt_no_info = 1 if $program eq 'info';
323     $replace{_('NAME')} = "$program \\- $opt_name\n";
333 	$program = $1 if /^([^\s,]+)(?:,?\s*[^\s,\\-]+)*\s+\\?-/;
337 	$_ = sprintf _("%s \\- manual page for %s %s") . "\n", $program,
338 	    $program, $version;
343 my $PROGRAM = uc $program;
662     my $info_page = $opt_info || $program;
666     $include{$sect} .= sprintf _(<<'EOT'), $program, $program, $info_page;