From ab591e156b289dfc0751aee4a42c628dcf497028 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Apr 2001 19:55:27 +0000
Subject: (getVarsFromSh): fix for AA="" inspired by chmou the Great (but the
 Great what?)

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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;
 }
-- 
cgit v1.2.1