Lines Matching refs:hostname

3049     my $hostname;
3050     sub hostname {  subroutine
3051 	if(not $hostname) {
3052 	    $hostname = `hostname`;
3053 	    chomp($hostname);
3054 	    $hostname ||= "nohostname";
3056 	return $hostname;
5800 		$workdir = ".parallel/tmp/" . ::hostname() . "-" . $$
7070 	my $len_cache = $ENV{'HOME'} . "/.parallel/tmp/linelen-" . ::hostname();
7720 	'pidfile' => $lockdir."/".$$.'@'.::hostname(),
7737 	    if($host eq ::hostname()) {