summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-06 00:10:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-06 00:10:40 +0000
commit8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e (patch)
treeb5eeb27b00d07fe577519a3b384525d58a6cc501 /perl-install
parent71bdad5f0093737b768ef324e61221de573a1fe2 (diff)
downloaddrakx-8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e.tar
drakx-8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e.tar.gz
drakx-8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e.tar.bz2
drakx-8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e.tar.xz
drakx-8bd7f7c2c925b559cdc00861cde4a0c5a3db0e9e.zip
(hds): pixelization
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 03328f9e7..dfe593f3a 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -66,7 +66,7 @@ sub hds {
my $file = devices::make($_->{device});
my $hd = partition_table_raw::get_geometry($file) or log::l("An error occurred while getting the geometry of block device $file: $!"), next;
- $hd = { (%$_, %$hd) };
+ add2hash_($hd, $_);
$hd->{file} = $file;
$hd->{prefix} = $hd->{device};
# for RAID arrays of format c0d0p1