summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-27 10:58:06 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-27 10:58:06 +0000
commit69907ed1e861483d4063a1eec3662690681651a7 (patch)
tree57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/common.pm
parent0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff)
downloaddrakx-69907ed1e861483d4063a1eec3662690681651a7.tar
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.gz
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.xz
drakx-69907ed1e861483d4063a1eec3662690681651a7.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 4578b61c9..4e5dccf9c 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -240,6 +240,8 @@ sub getVarsFromSh($) {
sub setVarsInSh {
my ($file, $l, @fields) = @_;
+ @fields = keys %$l unless @fields;
+
local *F;
open F, "> $_[0]" or die "cannot create config file $file";
$l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;