diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
| commit | 69907ed1e861483d4063a1eec3662690681651a7 (patch) | |
| tree | 57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/common.pm | |
| parent | 0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff) | |
| download | drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.gz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2 drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.xz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.zip | |
no_comment
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 2 |
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; |