From f9a642df536f4779ed37f2a090e31987f7e7d7ce Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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_dos.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(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 00ee589b9..ced50826f 100644
--- a/perl-install/partition_table_dos.pm
+++ b/perl-install/partition_table_dos.pm
@@ -62,8 +62,8 @@ sub read {
     } (1..$nb_primary);
 
     #- check magic number
-    sysread F, $tmp, length $magic or die "error reading magic number";
-    $tmp eq $magic or die "bad magic number";
+    sysread F, $tmp, length $magic or die "error reading magic number on disk $hd->{device}";
+    $tmp eq $magic or die "bad magic number on disk $hd->{device}";
 
     [ @pt ];
 }
-- 
cgit v1.2.1