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_sun.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/partition_table_sun.pm')

diff --git a/perl-install/partition_table_sun.pm b/perl-install/partition_table_sun.pm
index 75025b503..e0cc05265 100644
--- a/perl-install/partition_table_sun.pm
+++ b/perl-install/partition_table_sun.pm
@@ -82,7 +82,7 @@ sub read($$) {
     my %info; @info{@$main_fields} = unpack $main_format, $tmp;
 
     #- check magic number
-    $info{magic}  == $magic or die "bad magic number";
+    $info{magic}  == $magic or die "bad magic number on disk $hd->{device}";
 
     #- check crc, csum contains the crc so result should be 0.
     compute_crc($tmp) == 0 or die "bad checksum";
-- 
cgit v1.2.1