| Subject: | Thread Killer code for Sybase |
# MPaul Addition
# SYBASE ASE specific thread-killer
sub _kill_connection {
my ($self, $dbh) = @_;
my $thread_id = $dbh->{select @@spid};
my $new_dbh = $dbh->clone();
$new_dbh->do("KILL $thread_id");
}
I wish this could be added with a logic to find the current DBI
dbdriver in use.