diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-26 11:09:26 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-26 11:11:31 +0300 |
commit | 9880a949d2f1e1783302f4f6e25a4729d8761d5e (patch) | |
tree | 987860172e766d2c43ec42086ff4a76f0a461e80 | |
parent | f12defd06dfab84dd5a6a1d6f9839d6bb3af2c62 (diff) | |
download | config-haproxy-9880a949d2f1e1783302f4f6e25a4729d8761d5e.tar.gz config-haproxy-9880a949d2f1e1783302f4f6e25a4729d8761d5e.tar.bz2 |
Fix improper use of IPC::Cmd->run
-rw-r--r-- | lib/Config/HAProxy.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index 794a80f..44cc3fb 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm | |||
@@ -15,6 +15,6 @@ use File::stat; | |||
15 | use File::Spec; | 15 | use File::Spec; |
16 | use IPC::Cmd; | 16 | use IPC::Cmd qw(run); |
17 | use Carp; | 17 | use Carp; |
18 | 18 | ||
19 | our $VERSION = '1.03'; | 19 | our $VERSION = '1.04'; |
20 | 20 | ||
@@ -233,8 +233,10 @@ sub save { | |||
233 | close($fh); | 233 | close($fh); |
234 | |||
235 | if (my $cmd = $self->lint) { | 234 | if (my $cmd = $self->lint) { |
236 | my ($ok, $err, undef, undef, $errbuf) = | 235 | my ($ok, $err, $full, $outbuf, $errbuf) = |
237 | IPC::Cmd->run(command => "$cmd $tempfile"); | 236 | run(command => "$cmd $tempfile"); |
238 | unless ($ok) { | 237 | unless ($ok) { |
239 | croak "Syntax check failed: $errbuf\n"; | 238 | if ($errbuf && @$errbuf) { |
239 | croak "Syntax check failed: ".join("\n", @$errbuf)."\n"; | ||
240 | } | ||
241 | croak $err; | ||
240 | } | 242 | } |