From 72b8c1126664f9c26c031cafa71ddca4fb112de6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 9 Oct 2013 17:38:01 +0200
Subject: (try_) display error on console

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

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index ce6c81ffb..53c3260f3 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -132,6 +132,7 @@ sub try_ {
     my $dm_active_before = ($current_entry && $current_entry->{dm_active} && $current_entry->{dm_name});
     my $v = eval { $f->($in, @args, $all_hds) };
     if (my $err = $@) {
+	warn $err, "\n", backtrace() if $in->isa('interactive::gtk');
 	$in->ask_warn(N("Error"), formatError($err));
     }
     my $refresh = 0;
-- 
cgit v1.2.1