percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-12 06:00:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix init_config_file() when config file doesn't exist yet.

Browse Source
This commit is contained in:
Daniel Nichter
2013-04-08 15:16:53 -06:00
parent 3d20ff5f54
commit c46a0e3199
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-agent
View File

@@ -6242,8 +6242,8 @@ sub init_config_file {
my $config_file = get_config_file(); my $config_file = get_config_file();
eval { eval {
die "$config_file is not writable\n" die "$config_file exists but is not writable\n"
unless -w $config_file; if -f $config_file && !-w $config_file;
open my $fh, '>', $config_file open my $fh, '>', $config_file
or die "Error opening $config_file: $OS_ERROR"; or die "Error opening $config_file: $OS_ERROR";
print { $fh } "api-key=$api_key\n" print { $fh } "api-key=$api_key\n"