summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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