From f9a642df536f4779ed37f2a090e31987f7e7d7ce Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Apr 2002 09:28:24 +0000 Subject: nicer debug "bag magic" error message (thanks to Brian J. Murrell) --- perl-install/partition_table_empty.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/partition_table_empty.pm') diff --git a/perl-install/partition_table_empty.pm b/perl-install/partition_table_empty.pm index b2cc545de..6c922ffb7 100644 --- a/perl-install/partition_table_empty.pm +++ b/perl-install/partition_table_empty.pm @@ -25,8 +25,8 @@ sub read($$) { c::lseek_sector(fileno(F), $sector, 0) or die "reading of partition in sector $sector failed"; #- check magic number - sysread F, $tmp, 512 or die "error reading magic number"; - $tmp eq substr($tmp, 0, 1) x 512 or die "bad magic number"; + sysread F, $tmp, 512 or die "error reading magic number on disk $hd->{device}"; + $tmp eq substr($tmp, 0, 1) x 512 or die "bad magic number on disk $hd->{device}"; partition_table_raw::zero_MBR($hd); -- cgit v1.2.1