mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 13:11:32 +00:00
Fix 'Modification of a read-only value attempted at /home/ptagent/pt-agent/bin/pt-agent line 5691'.
This commit is contained in:
@@ -5687,8 +5687,8 @@ sub run_service {
|
||||
. "config.\n";
|
||||
}
|
||||
|
||||
foreach my $dir ( $service, '.tmp' ) {
|
||||
$dir = "$spool_dir/$dir";
|
||||
foreach my $subdir ( $service, '.tmp' ) {
|
||||
my $dir = "$spool_dir/$subdir";
|
||||
if ( ! -d $dir ) {
|
||||
_info("$dir does not exist, creating");
|
||||
mkdir $dir or die "Cannot mkdir $dir: $OS_ERROR";
|
||||
|
Reference in New Issue
Block a user