From 073e42bbfcd75d102a71e328f12b3ab3eeb7d047 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 23 Jul 2004 02:00:02 +0000 Subject: - move format related functions out of fs.pm to new module fs/format.pm - remove swap.pm, moving its few functions to fs/format.pm or fs.pm --- perl-install/diskdrake/interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/diskdrake/interactive.pm') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index b1457060c..fb2676114 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -582,7 +582,7 @@ sub Type { $part->{isFormatted} = 1; #- assume that if tune2fs works, partition is formatted #- disable the fsck (don't do it together with -j in case -j fails?) - fs::disable_forced_fsck($part->{device}); + fs::format::disable_forced_fsck($part->{device}); return; } } @@ -1083,7 +1083,7 @@ sub format_ { ask_alldatawillbelost($in, $part, N_("After formatting partition %s, all data on this partition will be lost")) or return; $part->{isFormatted} = 0; #- force format; my $w; - fs::format_part($all_hds->{raids}, $part, $::prefix, sub { + fs::format::part($all_hds->{raids}, $part, $::prefix, sub { my ($msg) = @_; $w ||= $in->wait_message('', $msg); $w->set($msg); -- cgit v1.2.1