From eaa3b8921b05da669982749565272b4c2d685483 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 30 Mar 2018 20:34:10 +0200
Subject: [PATCH] Configure: TestBool did not record a false value correctly

---
 ucw/perl/UCW/Configure.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index c469b3c3..dc1dac85 100644
--- a/ucw/perl/UCW/Configure.pm
+++ b/ucw/perl/UCW/Configure.pm
@@ -109,7 +109,11 @@ sub TestBool($$$) {
 		Log ((Get($var) ? "yes" : "no") . " (set)\n");
 	} else {
 		my ($val, $comment) = &$sub();
-		Set($var, $val);
+		if ($val) {
+			Set($var);
+		} else {
+			UnSet($var);
+		}
 		Log (($val ? "yes" : "no") . "\n");
 	}
 }
-- 
2.39.2