Lines Matching refs:debug
46 ::debug("init", "Open file descriptors: ", join(" ",keys %Global::fd), "\n");
84 ::debug("init", "Delimiter: '$delimiter'");
86 ::debug("init", "Colname: '$s'");
149 ::debug("init", "Start draining\n");
151 ::debug("init", "Done draining\n");
153 ::debug("init", "Done reaping\n");
162 ::debug("init", "Cleaning\n");
170 ::debug("init", "Halt\n");
397 ::debug("init", "Done reading input\n");
539 ::debug("pipe", "No virgin jobs");
787 $Global::debug = 0;
836 $Global::debug = $opt::D;
1691 ::debug("run","--sshloginfile $actual_file changed. reload\n");
1720 debug("run", "Running jobs before on ", $sshlogin->string(), ": ",
1739 debug("run", $sshlogin->string(), " has ", $sshlogin->jobs_running(),
1744 debug("run","No jobs started on ", $sshlogin->string(), "\n");
1752 debug("run","Running jobs after on ", $sshlogin->string(), ": ",
1788 debug("start", "Not starting: JobQueue empty\n");
1798 debug("start", "Not starting: no jobs available for ",
1805 debug("start", "Command to run on '", $job->sshlogin()->string(), "': '",
1811 debug("start", "Started as seq ", $job->seq(),
1875 debug($Global::total_running, "==", scalar
2199 ::debug("start", "No more jobs: JobQueue empty\n");
2274 ::debug("init","--slf ",$file);
2325 debug("run","Already seen $sshlogin_string\n");
2397 debug("init", "basesetup: $cmd\n");
2413 debug("init", "basecleanup: $cmd\n");
2440 ::debug("init", $cmd, "\n");
2472 ::debug("init", "--filtered $host\n");
2521 $Global::debug or unlink $tmpfile;
2541 ::debug("init", "Timing from -S:$sshlogin ncpus:",$ncpus{$sshlogin},
2607 ::debug("init", "| $0 $options\n");
2619 ::debug("init", "$0 $suboptions -j1 $joblog ",
2632 debug("init", "--onall exitvalue ", $?);
2634 $Global::debug or unlink(@argfiles);
2686 debug("run", "Reaper ");
2698 debug("run", "died (", $job->exitstatus(), "): ", $job->seq());
2733 debug("run", "done ");
2777 debug("run", "Looking for: $job_end_sequence ",
2783 debug("run", "Found job end $job_end_sequence");
3105 ::debug("init", "shell? ". $name_of_ref->{$testpid}."\n");
3107 ::debug("init", "which ".($3||$6)." => ");
3109 ::debug("init", "shell path $shellpath\n");
3204 ::debug(int($ms),"ms ");
3269 ::debug($s);
3282 sub debug { subroutine
3287 $Global::debug or return;
3289 if($Global::debug eq "all" or $Global::debug eq $_[0]) {
3527 ::debug("swap", "New swap_activity: ", $self->{'swap_activity'});
3529 ::debug("swap", "Last update: ", $self->{'last_swap_activity_update'});
3532 ::debug("swap", "Older than 10 sec: ", $self->{'swap_activity_file'});
3536 ::debug("swap", "No swap_activity file: ", $self->{'swap_activity_file'});
3541 ::debug("swap", "Updating swap_activity file ", $self->{'swap_activity_file'});
3556 ::debug("swap", "\n", $swap_activity, "\n");
3702 ::debug("run", "Too fast? $too_fast ");
3748 ::debug("load", "New loadavg: ", $self->{'loadavg'});
3752 ::debug("load", "Last update: ", $self->{'last_loadavg_update'});
3755 ::debug("load", time - $self->{'last_loadavg_update'}, " secs old: ",
3760 ::debug("load", "No loadavg file: ", $self->{'loadavg_file'});
3765 ::debug("load", "Updating loadavg file", $self->{'loadavg_file'}, "\n");
3800 ::debug("load", "max_loadavg: ", $self->string(), " ", $self->{'max_loadavg'});
3889 ::debug("load", "Wanted procs: $wanted_processes\n");
3892 ::debug("load", "Limited to procs: $system_limit\n");
4005 ::debug("run", "Time to fork $system_limit procs: $wait_time_for_getting_args ",
4106 ::debug("init", "Trying $wanted_processes logins at $serverlogin\n");
4186 ::debug("init",qq(echo|$sshcmd $serverlogin $sqe parallel --number-of-cores\n));
4844 ::debug("run", "JobQueue->empty $empty ");
5091 $Global::debug or unlink $self->fh($fdno,"unlink");
5224 ::debug("pipe", "Non-block: ", $something_written);
5307 ::debug("run", "Kill seq ", $self->seq(), "\n");
5873 ::debug("run", $Global::total_running, " processes . Starting (",
5933 ::debug("run", "Cannot spawn more jobs.\n");
5982 ::debug("run", "Test $dir/stdout", -e "$dir/stdout", "\n");
6019 ::debug("run", "Retry ", $self->seq(), "\n");
6030 ::debug("print", ">>joboutput ", $self->replaced(), "\n");
6076 ::debug("print", "File descriptor $fdno (", $self->fh($fdno,"name"), "):");
6134 ::debug("print", "<<joboutput @command\n");
6631 ::debug("length", "noncontext + command: $len\n");
6640 ::debug("length", $replstring, " ", $self->{'len'}{$replstring}, "*",
6646 ::debug("length", "Ctxgrp: ", $self->{'len'}{'contextgroups'},
6654 ::debug("length", "context+noncontext + command: $len\n");
6696 ::debug("length", $len, " != ", $self->len(), " ", $self->{'replaced'}, "\n");
6698 ::debug("length", $len, " == ", $self->len(), " ", $self->{'replaced'}, "\n");
6718 ::debug("replace", "Replace @target\n");
6730 ::debug("replace", "Target: $tt");
6775 ::debug("replace", "Replacing in $w\n");
6791 ::debug("replace", "Positional replaced $word with: $w\n");
6806 ::debug("replace", "Positional done: $w\n");
6840 ::debug("replace", "Return @target\n");
6943 ::debug("length", "@command Context: ", $len{'context'},
6994 ::debug("init","cmd_line->number_of_args ",
7024 ::debug("run", "CommandLineQueue->empty $empty");
7120 ::debug("init", "Maxlen: $lower,$upper,$middle : ");
7139 ::debug("init", "$len=$? ");
7177 ::debug("run", "Read 1 but return 0 args\n");
7186 ::debug("run", "RecordQueue-unget '@_'\n");
7195 ::debug("run", "RecordQueue->empty $empty");
7233 ::debug("run", "RecordColQueue::arg $arg\n");
7235 ::debug("run", "line='$line'\n");
7252 ::debug("run", "RecordColQueue-unget '@_'\n");
7259 ::debug("run", "RecordColQueue->empty $empty");
7296 ::debug("run", "MultifileQueue-unget '@_'\n");
7307 ::debug("run", "MultifileQueue->empty $empty ");
7327 ::debug("run", "EOA ");
7442 ::debug("run", "EOF-string ($arg) met\n");
7539 ::debug("replace", "eval ", $perlexpr, " ", $_, "\n");
7655 ::debug("run", "Timeout: $self->{'delta_time'}s ");
7731 ::debug("sem", "Remove dead locks");
7734 ::debug("sem", "Lock $d $lockdir\n");
7739 ::debug("sem", "Dead: $d");
7742 ::debug("sem", "Alive: $d");
7764 ::debug("sem", "acquired $self->{'pid'}\n");
7779 ::debug("run", "released $self->{'pid'}\n");
7788 ::debug("sem", $nlinks, "<", $self->{'count'});
7800 ::debug("sem", "released $self->{'pid'}\n");
7808 ::debug($self->nlinks(), "<", $self->{'count'});
7819 ::debug("run", "atomic $retval");
7829 ::debug("sem", $nlinks, "<", $self->{'count'});
7844 ::debug("sem", "atomic $retval");
7851 ::debug("sem", "nlinks", (stat(_))[3], "size", (stat(_))[7], "\n");
7868 or ::debug("run", "Cannot open $self->{'lockfile'}");
7907 ::debug("run", "locked $self->{'lockfile'}");
7914 ::debug("run", "unlocked\n");