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_bsd.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/partition_table_bsd.pm b/perl-install/partition_table_bsd.pm
index cb6a8441e..aa9b9eb29 100644
--- a/perl-install/partition_table_bsd.pm
+++ b/perl-install/partition_table_bsd.pm
@@ -78,8 +78,8 @@ sub read($$) {
     } $info{partitions} =~ /(.{$size})/g;
 
     #- check magic number
-    $info{magic}  == $magic or die "bad magic number";
-    $info{magic2} == $magic or die "bad magic number";
+    $info{magic}  == $magic or die "bad magic number on disk $hd->{device}";
+    $info{magic2} == $magic or die "bad magic number on disk $hd->{device}";
 
     [ @pt ], \%info;
 }
-- 
cgit v1.2.1