From 2801469d9a7d75854dd461d5e8d88728c1e8659a Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Mon, 19 Jan 2009 16:07:17 +0000
Subject: Try to get more info on #45850

---
 perl-install/diskdrake/hd_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 0aac21bbc..b52d3f98f 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -357,7 +357,7 @@ sub create_buttons4partitions {
 # disks: helpers
 ################################################################################
 sub current_hd() { 
-    $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd';
+    $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd ('.$current_kind->{type}.')';
     $current_kind->{val};
 }
 sub current_part() {
-- 
cgit v1.2.1