From 30db5b5924b0a854c233aad424107d56562a91e1 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Wed, 15 Apr 2009 10:11:43 +0000
Subject: display an error when mount fails during View action

---
 perl-install/diskdrake/interactive.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 3f2570949..e8a7a2f06 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -444,7 +444,11 @@ sub part_possible_actions {
 sub View {
     my ($in, $hd, $part, $all_hds) = @_;
     my $handle = any::inspect($part, $::prefix);
-    $in->ask_directory({'directory'=>$handle->{dir}});
+    if ($handle) {
+      $in->ask_warn(N("Error"), N("Failed to mount partition"));
+    } else {
+      $in->ask_directory({'directory'=>$handle->{dir}});
+    }
 }
 
 #- in case someone use diskdrake only to create partitions,
-- 
cgit v1.2.1