From 4458a8a8985d3c7c66588ff1cf0748178ad23c17 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 23 Jul 2004 04:11:20 +0000 Subject: replace pt_type2name($part->{pt_type}) with part2name($part) (hoisting the dereferencing {pt_type}) --- perl-install/fs/format.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/fs') 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); -- cgit v1.2.1