diff options
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/media.pm | 19 | ||||
| -rw-r--r-- | urpm/sys.pm | 15 |
2 files changed, 17 insertions, 17 deletions
diff --git a/urpm/media.pm b/urpm/media.pm index db99910f..d0cbb3b7 100644 --- a/urpm/media.pm +++ b/urpm/media.pm @@ -613,7 +613,7 @@ sub _compute_flags_for_skiplist { my ($urpm, $cmdline_skiplist) = @_; my %uniq; $urpm->compute_flags( - get_packages_list($urpm->{skiplist}, $cmdline_skiplist), + urpm::sys::get_packages_list($urpm->{skiplist}, $cmdline_skiplist), skip => 1, callback => sub { my ($urpm, $pkg) = @_; @@ -629,7 +629,7 @@ sub _compute_flags_for_instlist { my %uniq; $urpm->compute_flags( - get_packages_list($urpm->{instlist}), + urpm::sys::get_packages_list($urpm->{instlist}), disable_obsolete => 1, callback => sub { my ($urpm, $pkg) = @_; @@ -1861,19 +1861,4 @@ sub clean { } } - -#- get the list of packages that should not be upgraded or installed, -#- typically from the inst.list or skip.list files. -sub get_packages_list { - my ($file, $o_extra) = @_; - my $val = []; - open(my $f, '<', $file); - foreach (<$f>, split /,/, $o_extra || '') { - chomp; s/#.*$//; s/^\s*//; s/\s*$//; - next if $_ eq ''; - push @$val, $_; - } - $val; -} - 1; diff --git a/urpm/sys.pm b/urpm/sys.pm index 20061813..90f91e8d 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -10,6 +10,21 @@ use POSIX (); (our $VERSION) = q($Revision$) =~ /(\d+)/; + +#- get the list of packages that should not be upgraded or installed, +#- typically from the inst.list or skip.list files. +sub get_packages_list { + my ($file, $o_extra) = @_; + my $val = []; + open(my $f, '<', $file); + foreach (<$f>, split /,/, $o_extra || '') { + chomp; s/#.*$//; s/^\s*//; s/\s*$//; + next if $_ eq ''; + push @$val, $_; + } + $val; +} + #- find used mount point from a pathname, use a optional mode to allow #- filtering according the next operation (mount or umount). sub find_mntpoints { |