summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-23 04:11:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-23 04:11:20 +0000
commit4458a8a8985d3c7c66588ff1cf0748178ad23c17 (patch)
treea88ba2f5f2135cfeb37eee21471592a6e6e1d012 /perl-install/fs
parent1d8347ff685c50364932f1b2e720a4a97c7d550c (diff)
downloaddrakx-4458a8a8985d3c7c66588ff1cf0748178ad23c17.tar
drakx-4458a8a8985d3c7c66588ff1cf0748178ad23c17.tar.gz
drakx-4458a8a8985d3c7c66588ff1cf0748178ad23c17.tar.bz2
drakx-4458a8a8985d3c7c66588ff1cf0748178ad23c17.tar.xz
drakx-4458a8a8985d3c7c66588ff1cf0748178ad23c17.zip
replace pt_type2name($part->{pt_type}) with part2name($part)
(hoisting the dereferencing {pt_type})
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/format.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 6f5dff294..ee72eadcb 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -44,7 +44,7 @@ sub part_raw {
my $dev = $part->{real_device} || $part->{device};
my @options = if_($part->{toFormatCheck}, "-c");
- log::l("formatting device $dev (type ", pt_type2name($part->{pt_type}), ")");
+ log::l("formatting device $dev (type ", part2name($part), ")");
my $fs_type = type2fs($part);
@@ -58,7 +58,7 @@ sub part_raw {
push @options, '-l', 'bootstrap';
}
- my $cmd = $cmds{$fs_type} or die N("I don't know how to format %s in type %s", $part->{device}, pt_type2name($part->{pt_type}));
+ my $cmd = $cmds{$fs_type} or die N("I don't know how to format %s in type %s", $part->{device}, part2name($part));
run_program::raw({ timeout => 60 * 60 }, $cmd, @options, devices::make($dev)) or die N("%s formatting of %s failed", $fs_type, $dev);