summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-25 21:30:14 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-25 21:30:14 +0000
commit5dc2835bfbf1f53ad51ba540f4423c22cc94b26c (patch)
treeb58e6ee5478457e9b2851cf79f8067f1af1c376a /perl-install/fsedit.pm
parente556c04ec489070c46bbbc1ebc47ec2613fb5f6e (diff)
downloaddrakx-5dc2835bfbf1f53ad51ba540f4423c22cc94b26c.tar
drakx-5dc2835bfbf1f53ad51ba540f4423c22cc94b26c.tar.gz
drakx-5dc2835bfbf1f53ad51ba540f4423c22cc94b26c.tar.bz2
drakx-5dc2835bfbf1f53ad51ba540f4423c22cc94b26c.tar.xz
drakx-5dc2835bfbf1f53ad51ba540f4423c22cc94b26c.zip
no_comment
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 7406211e7..5269ea25e 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -39,8 +39,9 @@ sub hds($$) {
my $file = devices::make($_->{device});
my $hd = partition_table_raw::get_geometry($file) or die _("An error occurred while getting the geometry of block device %s: %s", $file, "$!");
+ $hd = { (%$_, %$hd) };
$hd->{file} = $file;
- $hd->{prefix} = $hd->{device} = $_->{device};
+ $hd->{prefix} = $hd->{device};
# for RAID arrays of format c0d0p1
$hd->{prefix} .= "p" if $hd->{prefix} =~ m,(rd|ida)/,;