From 29958ca6b88d9aa9c9305a18256f8c7092114cde Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 4 Sep 2000 13:48:26 +0000
Subject: no_comment

---
 perl-install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 512f753fc..1e604d85b 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -281,7 +281,8 @@ sub inspect {
 	$dir = '';
     } else {
 	mkdir $dir, 0700;
-	fs::mount($part->{device}, $dir, type2fs($part->{type}), !$rw);
+	eval { fs::mount($part->{device}, $dir, type2fs($part->{type}), !$rw) };
+	$@ and return;
     }
     my $h = before_leaving {
 	if (!$part->{isMounted} && $dir) {
-- 
cgit v1.2.1