Subject: | debug line "print Kid <pid>" being printed out in RH 7.2 version |
Date: | Thu, 13 Oct 2016 12:46:17 +0000 |
To: | "bug-Schedule-Cron [...] rt.cpan.org" <bug-Schedule-Cron [...] rt.cpan.org> |
From: | "Kerich, John T. (GSFC-444.0)[Arctic Slope Technical Services, Inc.]" <john.t.kerich [...] nasa.gov> |
Version Cron.pm 1.01
Came with RH 7.2 rpm, upgrading from RH 5.11
Our I&T people have noticed that when a kill signal is being sent the perl script that is using Schedule::Cron it is now printing the line 'Kid -1' or 'Kid <pid>' for each task that were scheduled. Looking at the RH 5.11 version vs. the RH 7.2 I see that the module was re-written and what appears to be a debug line was added in function _reaper_all and was not removed when it was committed. Basically the I&T people want it stopped because it confuses them because they don't know Kid line is coming from Cron.pm signal catcher. Please remove the debug line or change to 'print "Kid: $kid\n" if $DEBUG;' to suppress this message during normal runs. The SAs say they will not allow us to edit the module to fix it.
# Catch all reaper
sub _reaper_all {
local ($!,%!);
my $kid;
do
{
# Only on POSIX systems the wait will return immediately
# if there are no finished child processes. Simple 'wait'
# waits blocking on childs.
$kid = $HAS_POSIX ? waitpid(-1, WNOHANG) : wait;
print "Kid: $kid\n"; <==== debug line here causing all the complaints
if ($kid != 0 && $kid != -1 && defined $STARTEDCHILD{$kid})
{
# We don't delete the hash entry here to avoid an issue
# when modifyinga global hash from multiple threads
$STARTEDCHILD{$kid} = 0;
dbg "Reaped child $kid" if $DEBUG;
}
} while ($kid != 0 && $kid != -1);
Hopefully this will be fix soon. Thank you for your hard work.
John T. Kerich
ASRC Federal
Nasa GSFC
Building 13 Room 141 Cube 4
8800 Greenbelt Road
Greenbelt, MD 20771
Tel. #: (301) 286-5138
Fax #: (301) 286-7475
Email: john.t.kerich@nasa.gov<mailto:john.t.kerich@nasa.gov>