summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org>2019-05-27 04:27:39 (GMT)
committer Sergey Poznyakoff <gray@gnu.org>2019-05-27 04:27:39 (GMT)
commit271c2e2aa52dd2fc749b8c06aadf44c86ffbe205 (patch) (side-by-side diff)
treea9ecc6e1ff7162c0881e4b93c8639e34a43588da
parenta57226f3259c76d42a385f0bea64680018dcdad8 (diff)
downloadconfig-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.gz
config-haproxy-271c2e2aa52dd2fc749b8c06aadf44c86ffbe205.tar.bz2
Unlink tempfile on error
Diffstat (more/less context) (ignore whitespace changes)
-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 {
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";
}

Return to:

Send suggestions and report system problems to the System administrator.