+sub getYoungProcesses() {
+ my $ignore_hash = {};
+ if (defined $params->{'ignore_younger'}) {
+ eval "use Proc::ProcessTable; 1" or die "We need Proc::ProcessTable to use --ignore-younger.\n";
+ my $min_age = convert_time($params->{'ignore_younger'});
+ my $cutoff = time() - $min_age;
+
+ my $process_table = new Proc::ProcessTable(enable_ttys => 0);
+ for my $p ( @{$process_table->table} ){
+ $ignore_hash->{$p->pid} = 1 if $p->start > $cutoff;
+ }
+ }
+ return $ignore_hash;
+}
+
+
+my $IGNORE_YOUNG_PROCESSES = getYoungProcesses();
+
+
+