percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-18 17:58:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix saving interval meta file. Fix error when tmp data file doesn't exist.

Browse Source
This commit is contained in:
Daniel Nichter
2013-04-11 10:34:54 -06:00
parent e37e30dd01
commit 9be4a1d08e
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
bin/pt-agent
View File

@@ -6055,7 +6055,7 @@ sub run_service {
# if 1) the service spools data and 2) there is data and 3) this # if 1) the service spools data and 2) there is data and 3) this
# is not the first run of the service. # is not the first run of the service.
my $file_size = -s $tmp_data_file; my $file_size = -s $tmp_data_file;
_info("$tmp_data_file size: $file_size bytes"); _info("$tmp_data_file size: " . ($file_size || 0) . " bytes");
if ( $use_spool && $file_size && $prev_ts ) { if ( $use_spool && $file_size && $prev_ts ) {
# Save metadata about this sample _first_, because --send-data looks # Save metadata about this sample _first_, because --send-data looks
# for the data file first, then for a corresponding .meta file. If # for the data file first, then for a corresponding .meta file. If
@@ -6085,8 +6085,12 @@ sub run_service {
my $cmd_exit_status = $CHILD_ERROR >> 8; my $cmd_exit_status = $CHILD_ERROR >> 8;
_warn("Move failed: $cmd") if $cmd_exit_status != 0; _warn("Move failed: $cmd") if $cmd_exit_status != 0;
$exit_status |= $cmd_exit_status; $exit_status |= $cmd_exit_status;
}
# Update the meta file. # Always update the meta file if spooling, even if there was no data
# or this is the first run of the service (in which case this is the
# first interval boundary for the service).
if ( $use_spool ) {
write_to_file( write_to_file(
data => "$curr_ts\n", data => "$curr_ts\n",
file => $meta_file, file => $meta_file,