summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-19 09:42:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-19 09:42:22 +0000
commita0ba83ca6ac98200ea2f6418a3240741b165b7cd (patch)
treec88dd9057133deae78866cc056739dfcef8c8bcf /perl-install
parent914c6af22c2783359e593eb1a88bdbb7a1202da0 (diff)
downloaddrakx-backup-do-not-use-a0ba83ca6ac98200ea2f6418a3240741b165b7cd.tar
drakx-backup-do-not-use-a0ba83ca6ac98200ea2f6418a3240741b165b7cd.tar.gz
drakx-backup-do-not-use-a0ba83ca6ac98200ea2f6418a3240741b165b7cd.tar.bz2
drakx-backup-do-not-use-a0ba83ca6ac98200ea2f6418a3240741b165b7cd.tar.xz
drakx-backup-do-not-use-a0ba83ca6ac98200ea2f6418a3240741b165b7cd.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
-rw-r--r--perl-install/fsedit.pm22
2 files changed, 14 insertions, 10 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 6f831bfcf..af856e7ef 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -184,7 +184,7 @@ sub tryWrite($) {
sub syslog {
-r "/tmp/syslog" and return map { /<\d+>(.*)/ } cat_("/tmp/syslog");
- `dmesg`
+ `dmesg`;
}
sub hasSMP {
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);