summaryrefslogtreecommitdiff
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
parenta57226f3259c76d42a385f0bea64680018dcdad8 (diff)
downloadconfig-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.gz
config-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.bz2
Unlink tempfile on error
-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
@@ -235,6 +235,7 @@ sub save {
235 my ($ok, $err, $full, $outbuf, $errbuf) = 235 my ($ok, $err, $full, $outbuf, $errbuf) =
236 run(command => "$cmd $tempfile"); 236 run(command => "$cmd $tempfile");
237 unless ($ok) { 237 unless ($ok) {
238 unlink $tempfile;
238 if ($errbuf && @$errbuf) { 239 if ($errbuf && @$errbuf) {
239 croak "Syntax check failed: ".join("\n", @$errbuf)."\n"; 240 croak "Syntax check failed: ".join("\n", @$errbuf)."\n";
240 } 241 }

Return to:

Send suggestions and report system problems to the System administrator.