Issuing rollback() for database handle

Aaron.Gao

Perl program:

我在程序中ExecuteJob有连接数据库MYSQL的连接与断开操作.
程序运行在子进程中,目的是同时可以有N个操作同时进行.

1. 
   
2.         my $pid=fork();
   
3.         if ( $pid == 0 )
   
4.         {
   
5.             eval{
   
6.                 my $rtn = &ExecuteJob(@row_ary);
   
7.             };
   
8.             if ($@)
   
9.             {
   
10.                 &PrintLog("ExecuteJob have error : $@",'ERROR');
    
11.             }
    
12.             exit 0;
    
13.         }
    

复制代码

断开时出现这个错误.

1. 
   
2. Issuing rollback() for database handle being DESTROY'd without explicit disconnect(), <DATA> line 283.
   

复制代码

但是我已经显示的断开了:
$dbh->commit;
$dbh->disconnect;

不知道为什么出现这个错误,帮我分析下,谢谢