diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-27 07:27:39 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-27 07:27:39 +0300 |
commit | 271c2e2aa52dd2fc749b8c06aadf44c86ffbe205 (patch) | |
tree | a9ecc6e1ff7162c0881e4b93c8639e34a43588da | |
parent | a57226f3259c76d42a385f0bea64680018dcdad8 (diff) | |
download | config-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.gz config-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.bz2 |
Unlink tempfile on error
-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 | |||
@@ -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 | } |