奇怪的问题:pp后的脚本中AnyEvent fork_caller失效

huhuegg

PP+fork+AnyEvent fork_call

脚本是先fork后作为daemon使用的，里面有一个定时任务是调用AnyEvent中的fork_call。
未经过pp打包时使用正常，打包后fork_call失效。
是和多次fork有关系么？为什么pp前正常呢？
请教如何解决~

huhuegg

1. sub child_process {
   
2.     ......
   
3.     my $guard;
   
4.     $guard = tcp_server $sip,$sport,
   
5.            sub {
   
6.                    my ($fh,$host,$port)=@_;
   
7.                    &access_cb($fh,$host,$port);
   
8.           },
   
9.           sub {
   
10.                   .........
    
11.           };
    
12.     $cv->wait;
    
13. }
    
14. exit if fork;
    
15. &setsid();
    
16. chdir '/';
    
17. umask 022;
    
18. close STDIN;
    
19. close STDOUT;
    
20. close STDERR;
    
21. open STDIN,'/dev/null';
    
22. open STDOUT,'>/dev/null';
    
23. open STDERR,'>/dev/null';
    
24. my $pid=fork;
    
25. if ($pid == 0) {
    
26.     &child_process();
    
27.      exit;
    
28. } else {
    
29.     exit 254;
    
30. }

复制代码

如果去掉最初的fork，pp后也可以正常使用

[code]sub child_process {
    ......
    my $guard;
    $guard = tcp_server $sip,$sport,
           sub {
                   my ($fh,$host,$port)=@_;
                   &access_cb($fh,$host,$port);
          },
          sub {
                  .........
          };
    $cv->wait;
}

&child_process();

   

iakuf

回复 1# huhuegg


没见到你的代码中有调用 fork_call