From: Martin Mares <mj@ucw.cz>
Date: Fri, 30 Mar 2018 18:34:10 +0000 (+0200)
Subject: Configure: TestBool did not record a false value correctly
X-Git-Tag: v6.5.10~10
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=eaa3b8921b05da669982749565272b4c2d685483;p=libucw.git

Configure: TestBool did not record a false value correctly
---

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");
 	}
 }