diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-27 14:01:09 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-27 14:01:34 +0300 |
commit | 06e76a65440a9ecc4d880ff597c8ad5439b7820d (patch) | |
tree | d17923525418f7514255161a093c1ed06998a711 | |
parent | 271c2e2aa52dd2fc749b8c06aadf44c86ffbe205 (diff) | |
download | config-haproxy-06e76a65440a9ecc4d880ff597c8ad5439b7820d.tar.gz config-haproxy-06e76a65440a9ecc4d880ff597c8ad5439b7820d.tar.bz2 |
Config::HAProxy version 1.05v1.05
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | lib/Config/HAProxy.pm | 2 |
2 files changed, 4 insertions, 1 deletions
@@ -1,14 +1,17 @@ | |||
1 | Revision history for Perl extension Config::HAProxy. | 1 | Revision history for Perl extension Config::HAProxy. |
2 | 2 | ||
3 | 1.05 Mon May 27 13:59:57 2019 | ||
4 | - unlink temporary file on error | ||
5 | |||
3 | 1.04 Sun May 26 12:23:54 2019 | 6 | 1.04 Sun May 26 12:23:54 2019 |
4 | - fix improper use of IPC::Cmd | 7 | - fix improper use of IPC::Cmd |
5 | 8 | ||
6 | 1.03 Sun May 26 09:12:10 2019 | 9 | 1.03 Sun May 26 09:12:10 2019 |
7 | - implement configuration syntax check | 10 | - implement configuration syntax check |
8 | 11 | ||
9 | 1.02 Mon Jul 16 07:38:31 2018 | 12 | 1.02 Mon Jul 16 07:38:31 2018 |
10 | - remove the leftover use of autodie | 13 | - remove the leftover use of autodie |
11 | 14 | ||
12 | 1.01 Thu Jul 12 09:04:28 2018 | 15 | 1.01 Thu Jul 12 09:04:28 2018 |
13 | - set minimal required Perl version | 16 | - set minimal required Perl version |
14 | - drop dependency on autodie | 17 | - drop dependency on autodie |
diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index 175e402..35e75b9 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm | |||
@@ -7,25 +7,25 @@ use Config::HAProxy::Node::Root; | |||
7 | use Config::HAProxy::Node::Section; | 7 | use Config::HAProxy::Node::Section; |
8 | use Config::HAProxy::Node::Statement; | 8 | use Config::HAProxy::Node::Statement; |
9 | use Config::HAProxy::Node::Comment; | 9 | use Config::HAProxy::Node::Comment; |
10 | use Config::HAProxy::Node::Empty; | 10 | use Config::HAProxy::Node::Empty; |
11 | use Text::ParseWords; | 11 | use Text::ParseWords; |
12 | use File::Basename; | 12 | use File::Basename; |
13 | use File::Temp qw(tempfile); | 13 | use File::Temp qw(tempfile); |
14 | use File::stat; | 14 | use File::stat; |
15 | use File::Spec; | 15 | use File::Spec; |
16 | use IPC::Cmd qw(run); | 16 | use IPC::Cmd qw(run); |
17 | use Carp; | 17 | use Carp; |
18 | 18 | ||
19 | our $VERSION = '1.04'; | 19 | our $VERSION = '1.05'; |
20 | 20 | ||
21 | my %sections = ( | 21 | my %sections = ( |
22 | global => 1, | 22 | global => 1, |
23 | defaults => 1, | 23 | defaults => 1, |
24 | frontend => 1, | 24 | frontend => 1, |
25 | backend => 1, | 25 | backend => 1, |
26 | ); | 26 | ); |
27 | 27 | ||
28 | sub new { | 28 | sub new { |
29 | my $class = shift; | 29 | my $class = shift; |
30 | my $filename = shift // '/etc/haproxy/haproxy.cfg'; | 30 | my $filename = shift // '/etc/haproxy/haproxy.cfg'; |
31 | my $self = bless { _filename => $filename, | 31 | my $self = bless { _filename => $filename, |