diff options
| -rw-r--r-- | man/C/urpmi.cfg.5 | 5 | ||||
| -rw-r--r-- | urpm.pm | 4 | ||||
| -rw-r--r-- | urpm/cfg.pm | 1 |
3 files changed, 9 insertions, 1 deletions
diff --git a/man/C/urpmi.cfg.5 b/man/C/urpmi.cfg.5 index 24baf04b..e6febbc1 100644 --- a/man/C/urpmi.cfg.5 +++ b/man/C/urpmi.cfg.5 @@ -110,6 +110,11 @@ errors. Specifies that the media should not be reconfigured (by a reconfiguration file present on the medium). +.TP +.B prohibit-remove +A commę-separated list of package names that must never be removed (just like +basesystem). + .SS Medium description A medium is described as follows : @@ -148,6 +148,7 @@ sub read_config { post-clean pre-clean priority-upgrade + prohibit-remove resume retry split-length @@ -3118,8 +3119,9 @@ sub find_removed_from_basesystem { my ($urpm, $db, $state, $callback_base) = @_; if ($callback_base && %{$state->{rejected} || {}}) { my %basepackages; + my @dont_remove = ('basesystem', split /,\s*/, $urpm->{global_config}{'prohibit-remove'}); #- check if a package to be removed is a part of basesystem requires. - $db->traverse_tag('whatprovides', [ 'basesystem' ], sub { + $db->traverse_tag('whatprovides', \@dont_remove, sub { my ($p) = @_; $basepackages{$p->fullname} = 0; }); diff --git a/urpm/cfg.pm b/urpm/cfg.pm index 02f1f57e..1d085a65 100644 --- a/urpm/cfg.pm +++ b/urpm/cfg.pm @@ -147,6 +147,7 @@ sub load_config ($;$) { |excludepath |split-(?:level|length) |priority-upgrade + |prohibit-remove |downloader |retry )\s*:\s*['"]?(.*?)['"]?$/x |