Just replace:
my $error = $self->{db}->error;
with:
local $^W;
my $error = $GT::SQL::error;
It should work.
TheStone.
B.
my $error = $self->{db}->error;
with:
local $^W;
my $error = $GT::SQL::error;
It should work.
TheStone.
B.