1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index d5405a4b4..4213c4fdc 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -447,7 +447,7 @@ sub getVarsFromSh($) {
            )
            \s*$			# end of line
           /x or next;
-	$l{$v} = $val2 || $val;
+	$l{$v} = defined $val2 ? $val2 : $val;
     }
     %l;
 }