diff options
Diffstat (limited to 'perl-install/fsedit.pm')
| -rw-r--r-- | perl-install/fsedit.pm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 75e43eea2..50f9fa890 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -278,6 +278,7 @@ sub undo($) { sub move { my ($hd, $part, $hd2, $sector2) = @_; + my $part1 = { %$part }; my $part2 = { %$part }; $part2->{start} = $sector2; $part2->{size} += partition_table::cylinder_size($hd2) - 1; @@ -293,21 +294,23 @@ sub move { sysopen F, $hd->{file}, 0 or die ''; sysopen G, $hd2->{file}, 2 or die _("Error opening %s for writing: %s", $hd2->{file}, "$!"); - my $base = $part->{start}; + my $base = $part1->{start}; my $base2 = $part2->{start}; - my $step = 1 << 10; + my $step = 10; if ($hd eq $hd2) { - $part->{start} == $part2->{start} and return; - $step = min($step, abs($part->{start} - $part2->{start})); + $base == $base2 and return; + $step = min($step, abs($base2 - $base)); - if ($part->{start} < $part2->{start}) { - $base += $part->{size} - $step; - $base2 += $part->{size} - $step; + if ($base < $base2) { + $base += $part1->{size} - $step; + $base2 += $part1->{size} - $step; $step = -$step; } } my $f = sub { + $base < 0 and $base2 += -$base, $base = 0; + $base2 < 0 and $base += -$base2, $base2 = 0; c::lseek_sector(fileno(F), $base, 0) or die "seeking to sector $base failed on drive $hd->{device}"; c::lseek_sector(fileno(G), $base2, 0) or die "seeking to sector $base2 failed on drive $hd2->{device}"; @@ -316,10 +319,11 @@ sub move { syswrite G, $buf; }; - for (my $i = 0; $i < $part->{size} / abs($step); $i++, $base += $step, $base2 += $step) { + for (my $i = 0; $i < $part1->{size} / abs($step); $i++, $base += $step, $base2 += $step) { + print "$base $base2\n"; &$f($step); } - if (my $v = $part->{size} % abs($step) * sign($step)) { + if (my $v = ($part1->{size} % abs($step)) * sign($step)) { $base += $v; $base2 += $v; &$f($v); |