summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-22 03:39:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-22 03:39:03 +0000
commitb477ec20a4637d0abd860479bb0f72f9a138eb16 (patch)
tree1ae3eaf7bcca5a29b6eff766e9bcb10e630208e2 /perl-install/partition_table
parent2f3d0e197086ddd1c2acf58ef47ebd7c6805b981 (diff)
downloaddrakx-backup-do-not-use-b477ec20a4637d0abd860479bb0f72f9a138eb16.tar
drakx-backup-do-not-use-b477ec20a4637d0abd860479bb0f72f9a138eb16.tar.gz
drakx-backup-do-not-use-b477ec20a4637d0abd860479bb0f72f9a138eb16.tar.bz2
drakx-backup-do-not-use-b477ec20a4637d0abd860479bb0f72f9a138eb16.tar.xz
drakx-backup-do-not-use-b477ec20a4637d0abd860479bb0f72f9a138eb16.zip
more logging
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/dos.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 8a24cec84..d0e0d8bb5 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -215,9 +215,11 @@ sub read {
# write the partition table (and extended ones)
# for each entry, it uses fields: start, size, pt_type, active
-sub write($$$;$) {
+sub write {
my ($hd, $sector, $pt) = @_;
+ log::l("partition::dos::write $hd->{device}" . backtrace());
+
#- handle testing for writing partition table on file only!
my $F;
if ($::testing) {