Чтобы уточнить, код имеет:
# use a DSN without attribute settings specified within !
sub setPingTimeOut {
my $class = shift;
my $data_source = shift;
my $timeout = shift;
# sanity check
if ($data_source =~ /dbi:\w+:.*/ and $timeout =~ /\-*\d+/) {
$PingTimeOut{$data_source} = $timeout;
}
}
Обратите внимание на «проверку работоспособности».Следовательно, таймаут ping для имени источника данных с заглавными буквами DBI: будет игнорироваться.