9
9
our $VERSION = 0.01;
10
10
11
11
# # GOAL: Test for segfaults in parent processes receieving SIGCHLD
12
- # # An application I maintain, dispatces childern to perform work
13
- # # that the parent process does not have tie to perform. It has completed
14
- # # the work, needed, plces that work into a queeue, and the queue is used
15
- # # by the parent process dispatch the work by dispatcing child proceses.
16
- # # The parent reaps the children and launces new children as needed
17
- # # until the queue is empty. The parent process is a long running
18
- # # performng DB work it must itself perform.
19
-
20
- # # We dont have any real work here so we'll emulate the work by .
12
+ # # An application I maintain, dispatches childern to perform work
13
+ # # that the parent process does not have time to perform. It has completed
14
+ # # the work it needed, places the remaing task into a queeue, and the queue is used
15
+ # # by the parent process for dispatching child proceses.
16
+ # # The parent reaps the children and launches new children as needed
17
+ # # until the queue is empty. The parent process is long running
18
+ # # performing DB work it must itself perform.
19
+
20
+ # # We dont have any real work here so we'll emulate the work.
21
21
# # This program is the child process. A test program that forks us
22
- # # will run this to emulate the work being dispatched.
22
+ # # will run to emulate the work being dispatched.
23
23
# #
24
24
# # 1. Connecting to DB
25
25
# # 2. Read data.
26
26
# # 3. Pretending to do work for a random period of time in the range of 2-5 seconds
27
- # # (which approxily matches the time the actual tool I maintain takes to do work )
27
+ # # (which approxily matches the time the actual tool I maintain takes to do the task )
28
28
# # 4. Disconnect from DB
29
29
# # 5. Exit with a success exit code.
30
30
# # The parent does not care if we succeeded or not, it just needs to know
31
31
# # that we have completed the work and available for reaping.
32
+ # # allowing for another task to be dispatched.
32
33
33
34
local $Data::Dumper::Indent = 1;
34
35
local $Data::Dumper::Terse = 1;
60
61
exit (0);
61
62
62
63
# # vim: set ts=2 sw=2 expandtab number:
63
- # # END
64
+ # # END
0 commit comments