version 1.72, 2002/02/19 21:52:54
|
version 1.73, 2002/02/25 20:43:15
|
Line 51
|
Line 51
|
# 02/05 Guy Albertelli |
# 02/05 Guy Albertelli |
# 02/07 Scott Harrison |
# 02/07 Scott Harrison |
# 02/12 Gerd Kortemeyer |
# 02/12 Gerd Kortemeyer |
|
# 02/19 Matthew Hall |
|
# 02/25 Gerd Kortemeyer |
### |
### |
|
|
# based on "Perl Cookbook" ISBN 1-56592-243-3 |
# based on "Perl Cookbook" ISBN 1-56592-243-3 |
Line 1427 sub make_new_child {
|
Line 1429 sub make_new_child {
|
|
|
# tidy up gracefully and finish |
# tidy up gracefully and finish |
|
|
$client->close(); |
|
$server->close(); |
$server->close(); |
|
|
# this exit is VERY important, otherwise the child will become |
# this exit is VERY important, otherwise the child will become |
Line 1482 Server/Process
|
Line 1483 Server/Process
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|