mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-04-06 01:06:43 +08:00
I think this warning actually happens everywhere, but because of
how it happens, it gets masked by older versions of Perl.
Basically, Cxn's DESTROY method checks if $self->{dbh}, and if true,
calls ->disconnect on that. However, during global destruction --
when DESTROY is called -- you have no assurances that DESTROY
will be called before the dbh was already reaped.
This commit makes sure that the $self->{dbh} we have inside DESTROY
is actually a reference.
7.4 KiB
7.4 KiB