percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 23:45:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Finish updating/fixing tests.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-16 21:01:30 -07:00
parent 09eb28cca8
commit 321eee1f67
4 changed files with 101 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bin/pt-agent
View File

@@ -6348,7 +6348,8 @@ sub get_services {
);
if ( !$curr_services ) {
$logger->error("GET $link did not return anything, expected a list of services");
$logger->error("GET $link did not return anything, "
. "expected a list of services");
}
elsif ( !scalar @$curr_services && !scalar keys %$prev_services ) {
$logger->warning("No services are enabled for this agent");
@@ -6704,10 +6705,12 @@ sub apply_services {
my $lib_dir = $args{lib_dir};
# Optional args
my $bin_dir = defined $args{bin_dir} ? $args{bin_dir}
my $bin_dir = defined $args{bin_dir} ? "$args{bin_dir}"
: "$FindBin::Bin/";
my $exec_cmd = $args{exec_cmd} || sub { return system(@_) };
$bin_dir .= '/' unless $bin_dir =~ m/\/$/;
my $env_vars = env_vars();
my $log = "$lib_dir/logs/start-stop.log";
my $cmd_fmt = ($env_vars ? "$env_vars " : '')