diff options
| author | damien <damien@mandriva.com> | 2001-03-06 00:15:32 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-06 00:15:32 +0000 |
| commit | fb2ad33549fbe34a59dd085422cb540656e30ab7 (patch) | |
| tree | 689f63467cf2846be6ab6c62853574bba5c69ae0 /perl-install | |
| parent | 8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e (diff) | |
| download | drakx-fb2ad33549fbe34a59dd085422cb540656e30ab7.tar drakx-fb2ad33549fbe34a59dd085422cb540656e30ab7.tar.gz drakx-fb2ad33549fbe34a59dd085422cb540656e30ab7.tar.bz2 drakx-fb2ad33549fbe34a59dd085422cb540656e30ab7.tar.xz drakx-fb2ad33549fbe34a59dd085422cb540656e30ab7.zip | |
use set_in_hash
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 1bdea6721..1245508cb 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -427,7 +427,7 @@ sub write_fstab($;$$) { sub merge_fstabs { my ($fstab, $manualFstab) = @_; my %l; $l{$_->{device}} = $_ foreach @$manualFstab; - %$_ = (%$_, %{$l{$_->{device}} || next}) foreach @$fstab; + set_in_hash($_, $l{$_->{device}}) foreach @$fstab; } #sub check_mount_all_fstab($;$) { |