percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-24 13:25:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

eval replace_special_vars().

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-14 21:11:47 -07:00
parent 84cf7c00d0
commit a148ce1cff
1 changed files with 33 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pt-agent
View File

@@ -7195,9 +7195,12 @@ sub replace_special_vars {
# Optional args # Optional args
my $env = $args{env} || ''; my $env = $args{env} || '';
my $new_cmd = join(' ', my $word;
my $new_cmd;
eval {
$new_cmd = join(' ',
map { map {
my $word = $_; $word = $_;
if ( my ($runno) = $word =~ m/__RUN_(\d+)_OUTPUT__/ ) { if ( my ($runno) = $word =~ m/__RUN_(\d+)_OUTPUT__/ ) {
if ( $output_files->[$runno] ) { if ( $output_files->[$runno] ) {
$word = $output_files->[$runno]; $word = $output_files->[$runno];
@@ -7224,6 +7227,10 @@ sub replace_special_vars {
} }
split(/\s+/, $cmd) split(/\s+/, $cmd)
); );
};
if ( $EVAL_ERROR ) {
$logger->fatal("Error replacing " . ($word || '') . " in $cmd: $EVAL_ERROR");
}
return $new_cmd; return $new_cmd;
} }