diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Config/HAProxy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index 44cc3fb..175e402 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm @@ -232,12 +232,13 @@ sub save { $self->write($fh, @wrargs); close($fh); if (my $cmd = $self->lint) { my ($ok, $err, $full, $outbuf, $errbuf) = run(command => "$cmd $tempfile"); unless ($ok) { + unlink $tempfile; if ($errbuf && @$errbuf) { croak "Syntax check failed: ".join("\n", @$errbuf)."\n"; } croak $err; } } |