Fix 'Modification of a read-only value attempted at /home/ptagent/pt-agent/bin/pt-agent line 5691'.

This commit is contained in:
Daniel Nichter
2013-03-26 14:26:40 -06:00
parent b9a82c21b9
commit 58ea0f1886

View File

@@ -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";