diff options
| -rw-r--r-- | urpm/sys.pm | 13 | ||||
| -rwxr-xr-x | urpmi | 6 |
2 files changed, 19 insertions, 0 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm index 97f37435..1ccc3b6e 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -107,4 +107,17 @@ sub find_mntpoints { @mntpoints; } +#- checks if the main filesystems are writeable for urpmi to install files in +sub check_fs_writable () { + open my $mounts, '/proc/mounts' or do { warn "Can't read /proc/mounts: $!\n"; return 1 }; + local *_; + while (<$mounts>) { + (undef, our $mountpoint, undef, my $opts) = split ' '; + if ($opts =~ /\bro\b/ && $mountpoint =~ m!^(/|/usr|/s?bin)$!) { + return 0; + } + } + 1; +} + 1; @@ -215,6 +215,12 @@ if ($env) { } } +unless ($bug || $install_src || $env || $urpm->{options}{'allow-force'}) { + require urpm::sys; + urpm::sys::check_fs_writable() or $urpm->{fatal}(1, N("Error: %s appears to be mounted read-only. +Use --allow-force to force operation.", $urpm::sys::mountpoint)); +} + my ($pid_out, $pid_err); if ($log) { #- log only at this point in case of query usage. |