summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-22 03:38:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-22 03:38:45 +0000
commit2f3d0e197086ddd1c2acf58ef47ebd7c6805b981 (patch)
tree360185f806fad83e782b335a3723f9b6fbb510f7 /perl-install
parent81a21b68ff838a49b6aa6f52a7dd541b414dea4a (diff)
downloaddrakx-2f3d0e197086ddd1c2acf58ef47ebd7c6805b981.tar
drakx-2f3d0e197086ddd1c2acf58ef47ebd7c6805b981.tar.gz
drakx-2f3d0e197086ddd1c2acf58ef47ebd7c6805b981.tar.bz2
drakx-2f3d0e197086ddd1c2acf58ef47ebd7c6805b981.tar.xz
drakx-2f3d0e197086ddd1c2acf58ef47ebd7c6805b981.zip
better logging
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 26995921d..a5c6d5634 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -378,7 +378,7 @@ sub tell_kernel {
} elsif ($action eq 'del') {
$force_reboot ||= !c::del_partition(fileno $F, $part_number);
}
- log::l("tell kernel $action ($part_number $o_start $o_size), rebootNeeded is now " . bool2text($hd->{rebootNeeded}));
+ log::l("tell kernel $action ($hd->{device} $part_number $o_start $o_size), rebootNeeded is now " . bool2text($hd->{rebootNeeded}));
}
}
if ($force_reboot) {
@@ -387,7 +387,7 @@ sub tell_kernel {
syscall_('umount', $_->{real_mntpoint}) or log::l(N("error unmounting %s: %s", $_->{real_mntpoint}, $!));
}
$hd->{rebootNeeded} = !ioctl($F, c::BLKRRPART(), 0);
- log::l("tell kernel force_reboot, rebootNeeded is now $hd->{rebootNeeded}.");
+ log::l("tell kernel force_reboot ($hd->{device}), rebootNeeded is now $hd->{rebootNeeded}.");
foreach (@magic_parts) {
syscall_('mount', $_->{real_mntpoint}, $_->{fs_type}, c::MS_MGC_VAL()) or log::l(N("mount failed: ") . $!);