From dd8b81baddec01d99d243c1b59cc93215e1aa754 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 8 Feb 2005 15:07:20 +0000
Subject: allow mounting isOtherAvailableFS filesystems read-only

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 98720cd15..5210a30f3 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -560,7 +560,7 @@ sub shells() {
 sub inspect {
     my ($part, $o_prefix, $b_rw) = @_;
 
-    isMountableRW($part) or return;
+    isMountableRW($part) || !$b_rw && isOtherAvailableFS($part) or return;
 
     my $dir = $::isInstall ? "/tmp/inspect_tmp_dir" : "/root/.inspect_tmp_dir";
 
-- 
cgit v1.2.1