From b477ec20a4637d0abd860479bb0f72f9a138eb16 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Sep 2004 03:39:03 +0000
Subject: more logging

---
 perl-install/partition_table/dos.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/partition_table/dos.pm')

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) {
-- 
cgit v1.2.1