Configure: TestBool did not record a false value correctly

diff --git a/ucw/perl/UCW/Configure.pm b/ucw/perl/UCW/Configure.pm
index c469b3c34ea906ced76534600574a01740081b93..dc1dac85328c7266753dd43c29d3503588f92881 100644 (file)
--- 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");
        }
 }