summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-08 15:07:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-08 15:07:20 +0000
commitdd8b81baddec01d99d243c1b59cc93215e1aa754 (patch)
tree87c90f686fcd630f15f6cfc25acefcc9e1f97701 /perl-install/any.pm
parent8c30c712a136069a6450e447f191daa229aacf84 (diff)
downloaddrakx-dd8b81baddec01d99d243c1b59cc93215e1aa754.tar
drakx-dd8b81baddec01d99d243c1b59cc93215e1aa754.tar.gz
drakx-dd8b81baddec01d99d243c1b59cc93215e1aa754.tar.bz2
drakx-dd8b81baddec01d99d243c1b59cc93215e1aa754.tar.xz
drakx-dd8b81baddec01d99d243c1b59cc93215e1aa754.zip
allow mounting isOtherAvailableFS filesystems read-only
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
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";