| Subject: | Kid IDs shouldn't be printed unless $DEBUG is set |
When Cron object is created with 'nofork' mode,
Kid IDs get printed every time scheduled cron jobs run.
my $cron = new Schedule::Cron(sub {}, nofork => 0);
This line shouldn't be there or it should only prints when '$DEBUG' is set:
print "Kid: $kid\n";
~$ grep -C 4 Kid /usr/local/share/perl/5.14.2/Schedule/Cron.pm
# 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";
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
$ perl -v
This is perl 5, version 14, subversion 2 (v5.14.2) built for
i686-linux-gnu-thread-multi-64int
(with 64 registered patches, see perl -V for more detail)
Copyright 1987-2011, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
$ uname -a
Linux blah 3.5.0-23-generic #35-Ubuntu SMP Thu Jan 24 13:05:29 UTC 2013
i686 i686 i686 GNU/Linux