diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-26 09:20:32 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-26 09:33:43 +0300 |
commit | f12defd06dfab84dd5a6a1d6f9839d6bb3af2c62 (patch) | |
tree | 7f7b3c3f3a2fe45161e2855c9a9ce73a67dfc612 | |
parent | 585a5a925342c357d46fbad273bfafc03bc33dcd (diff) | |
download | config-haproxy-1.03.tar.gz config-haproxy-1.03.tar.bz2 |
Config::HAProxy version 1.03v1.03
-rw-r--r-- | Changes | 6 | ||||
-rw-r--r-- | lib/Config/HAProxy.pm | 18 | ||||
-rw-r--r-- | t/Test/HAProxy.pm | 1 |
3 files changed, 16 insertions, 9 deletions
@@ -1,5 +1,11 @@ Revision history for Perl extension Config::HAProxy. +1.03 Sun May 26 09:12:10 2019 + - implement configuration syntax check + +1.02 Mon Jul 16 07:38:31 2018 + - remove the leftover use of autodie + 1.01 Thu Jul 12 09:04:28 2018 - set minimal required Perl version - drop dependency on autodie diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index ff4fa8a..794a80f 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm @@ -16,7 +16,7 @@ use File::Spec; use IPC::Cmd; use Carp; -our $VERSION = '1.01'; +our $VERSION = '1.03'; my %sections = ( global => 1, @@ -429,10 +429,11 @@ Returns the last node in the tree. =head2 lint - $cfg->lint(%ARGS); + $cfg->lint(%hash); -Configures syntax checking program to be run before saving. Takes a -hash as argument. Allowed keys are: +Configures configuration syntax check. The check will be run by the B<save> +method prior to writing to the configuration file. Takes a hash as argument. +Allowed keys are: =over 4 @@ -442,7 +443,8 @@ If I<BOOL> is 0, disables syntax check. Default is 1. =item B<command =E<gt> I<CMD>> -Configures the command to use for syntax check. The command will be run as +Defines the shell command to use for syntax check. The command will be run +as CMD FILE @@ -452,7 +454,7 @@ Default command is B<haproxy -c -f>. =item B<path =E<gt> I<PATH>> -Sets the search path for the check program. I<PATH> is a colon-delimited +Sets the search path for the syntax checker. I<PATH> is a colon-delimited list of directories. Unless the first word of B<command> is an absolute file name, it will be looked for in these directories. The first match will be used. Default is system B<$PATH>. @@ -467,8 +469,8 @@ Returns the command name. Saves the parse tree in the configuration file. Syntax check will be run prior to saving (unless previously disabled). If syntax errors are discovered, -the method will B<croak> with the appropriate diagnostics, beginning with -words C<Syntax check failed:>. +the method will B<croak> with a diagnostic message starting with words +C<Syntax check failed:>. If I<%hash> contains a non-zero B<dry_run> value, B<save> will only run syntax check, without actually saving the file. If B<$cfg-E<gt>lint(enable =E<gt> 0)> diff --git a/t/Test/HAProxy.pm b/t/Test/HAProxy.pm index b5b8a19..ca7d8ce 100644 --- a/t/Test/HAProxy.pm +++ b/t/Test/HAProxy.pm @@ -4,7 +4,6 @@ use warnings; use parent 'Config::HAProxy'; use File::Basename; use File::Temp; -use autodie; sub new { my $class = shift; |