diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-09-22 03:39:03 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-09-22 03:39:03 +0000 |
commit | b477ec20a4637d0abd860479bb0f72f9a138eb16 (patch) | |
tree | 1ae3eaf7bcca5a29b6eff766e9bcb10e630208e2 /perl-install/partition_table/dos.pm | |
parent | 2f3d0e197086ddd1c2acf58ef47ebd7c6805b981 (diff) | |
download | drakx-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/dos.pm')
-rw-r--r-- | perl-install/partition_table/dos.pm | 4 |
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) { |