summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-29 13:21:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-29 13:21:15 +0000
commit0fa538d25a0ede3020b94fef99a4e9e11508cb8e (patch)
treee59fc545d42550083cc436bb987fae6af8d44b97 /perl-install
parentedde4114b1aa035443271f52e87c1b71530b7401 (diff)
downloaddrakx-0fa538d25a0ede3020b94fef99a4e9e11508cb8e.tar
drakx-0fa538d25a0ede3020b94fef99a4e9e11508cb8e.tar.gz
drakx-0fa538d25a0ede3020b94fef99a4e9e11508cb8e.tar.bz2
drakx-0fa538d25a0ede3020b94fef99a4e9e11508cb8e.tar.xz
drakx-0fa538d25a0ede3020b94fef99a4e9e11508cb8e.zip
fix various resize pbs:
- write partition table *before* resizing when partition is enlarged - debug ntfsresize
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm31
1 files changed, 18 insertions, 13 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f53e00d58..dd5f73a8d 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -656,9 +656,9 @@ sub Resize {
} elsif (isThisFs('ntfs', $part)) {
write_partitions($in, $hd) or return;
my $dev = devices::make($part->{device});
- my $r = run_program::get_stdout('ntfsresize', '-i', $dev);
+ my $r = run_program::get_stdout('ntfsresize', '-f', '-i', $dev);
if ($r =~ /minimal size: (\d+) KiB/) {
- $min = $r * 2;
+ $min = $1 * 2;
$nice_resize{ntfs} = $dev;
}
} elsif (isThisFs("reiserfs", $part)) {
@@ -703,9 +703,19 @@ sub Resize {
my $_b = before_leaving { $@ and $part->{size} = $oldsize };
my $w = $in->wait_message(N("Resizing"), '');
- if (isLVM($hd)) {
- lvm::lv_resize($part, $oldsize) if $size > $oldsize;
- }
+ my $adjust = sub {
+ my ($write_partitions) = @_;
+
+ if (isLVM($hd)) {
+ lvm::lv_resize($part, $oldsize)
+ } else {
+ partition_table::adjust_local_extended($hd, $part);
+ partition_table::adjust_main_extended($hd);
+ write_partitions($in, $hd) if $write_partitions;
+ }
+ };
+
+ $adjust->(1) if $size > $oldsize;
if ($nice_resize{fat}) {
local *log::l = sub { $w->set(join(' ', @_)) };
@@ -716,10 +726,10 @@ sub Resize {
run_program::run("resize2fs", "-pf", $nice_resize{ext2}, $s);
} elsif ($nice_resize{ntfs}) {
log::l("ntfs resize to $part->{size} sectors");
- run_program::run_or_die('ntfsresize', '-f', '-s' . $part->{size}/2 . "Ki", devices::make($part->{device}));
+ run_program::run_or_die('ntfsresize', '-ff', '-s' . int($part->{size}/2) . 'ki', devices::make($part->{device}));
} elsif ($nice_resize{reiserfs}) {
log::l("reiser resize to $part->{size} sectors");
- run_program::run("resize_reiserfs", "-f", "-q", "-s" . $part->{size}/2 . "K", devices::make($part->{device}));
+ run_program::run('resize_reiserfs', '-f', '-q', '-s' . int($part->{size}/2) . 'K', devices::make($part->{device}));
} elsif ($nice_resize{xfs}) {
#- happens only with mounted LVM, see above
run_program::run("xfs_growfs", $part->{mntpoint});
@@ -733,12 +743,7 @@ sub Resize {
partition_table::verifyParts($hd);
}
- if (isLVM($hd)) {
- lvm::lv_resize($part, $oldsize) if $size < $oldsize;
- } else {
- partition_table::adjust_local_extended($hd, $part);
- partition_table::adjust_main_extended($hd);
- }
+ $adjust->(0) if $size < $oldsize;
}
sub Move {
my ($in, $hd, $part, $all_hds) = @_;