test for value in DBI::errstr
parent
375af59657
commit
d9b6f4bd85
|
@ -302,7 +302,7 @@ sub run {
|
||||||
if ( ! ( $secs_count % 60 ) ) {
|
if ( ! ( $secs_count % 60 ) ) {
|
||||||
Debug("Connecting");
|
Debug("Connecting");
|
||||||
while ( (!$zm_terminate) and !($dbh and $dbh->ping()) ) {
|
while ( (!$zm_terminate) and !($dbh and $dbh->ping()) ) {
|
||||||
Warning("Not connected to db ($dbh)".($dbh?" ping(".$dbh->ping().")":''). " errstr($DBI::errstr). Reconnecting");
|
Warning("Not connected to db ($dbh)".($dbh?" ping(".$dbh->ping().")":''). ($DBI::errstr?" errstr($DBI::errstr)":'').' Reconnecting');
|
||||||
$dbh = zmDbConnect();
|
$dbh = zmDbConnect();
|
||||||
}
|
}
|
||||||
my @cpuload = CpuLoad();
|
my @cpuload = CpuLoad();
|
||||||
|
|
Loading…
Reference in New Issue