summaryrefslogtreecommitdiff
path: root/lib/Config/HAProxy.pm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2019-05-27 07:27:39 +0300
committerSergey Poznyakoff <gray@gnu.org>2019-05-27 07:27:39 +0300
commit271c2e2aa52dd2fc749b8c06aadf44c86ffbe205 (patch)
treea9ecc6e1ff7162c0881e4b93c8639e34a43588da /lib/Config/HAProxy.pm
parenta57226f3259c76d42a385f0bea64680018dcdad8 (diff)
downloadconfig-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.gz
config-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.bz2
Unlink tempfile on error
Diffstat (limited to 'lib/Config/HAProxy.pm')
-rw-r--r--lib/Config/HAProxy.pm1
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;
}
}

Return to:

Send suggestions and report system problems to the System administrator.