我有下面的代码。我的问题是它随机崩溃，并出现以下错误：
perl: ath.c:193: _gcry_ath_mutex_lock: Assertion `*lock == ((ath_mutex_t) 0)' failed.
就像我将代码运行10次一样，它会崩溃2-3次。如何解决？
use warnings;
use strict;
use Net::SSH2;
use threads;
sub gsmExec {
$host = $_[0];
$port = $_[1];
$user = $_[2];
$pass = $_[3];
my $modem = Net::SSH2->new();
print "Trying to connect host $host : $port \n";
if($modem->connect($host,$port)) {
print "connected to host ..\n";
if ($modem->auth_password($user,$password) {
print "Authorized!!";
}
}
}
for(my $j = 1; $j <= $modemCount; $j++){
$thrList[$j] = threads->create(\&gsmExec,'host',22,'user','pass');
}
那里不是真正的perl错误-Net::SSH库中包含一些C代码。
有迹象表明您不是唯一遇到此问题的人：
http://www.perlmonks.org/?node_id=936201
http://lists.gnupg.org/pipermail/gcrypt-devel/2006-January/000910.html
看来GnuTLS中可能存在一个错误，这使其不是线程安全的。解决方法是：
fork而不是线程。（Parallel::ForkManager对此非常好）。Net::OpenSSH::Parallel 可能也可以解决问题。 本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句