percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-21 02:00:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Carlos Salguero
2017-12-04 11:44:11 -03:00
parent b4ac841421
commit 6a561bb913
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/MySQLConfig.pm
View File

@@ -587,6 +587,14 @@ sub is_active {
return $self->{dbh} ? 1 : 0; return $self->{dbh} ? 1 : 0;
} }
sub has_engine {
my ($self, $engine) = @_;
if (!$self->{dbh}) {
die "invalid dbh in has_engine method";
}
}
sub _d { sub _d {
my ($package, undef, $line) = caller 0; my ($package, undef, $line) = caller 0;
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; } @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }