summaryrefslogtreecommitdiffstats
path: root/urpm/sys.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm/sys.pm')
-rw-r--r--urpm/sys.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 90f91e8d..612c9ed6 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -15,14 +15,14 @@ use POSIX ();
#- 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, $_;
+ my @l = split(/,/, $o_extra || '');
+ if (open(my $f, '<', $file)) {
+ push @l, <$f>;
}
- $val;
+ [ grep { $_ } map {
+ chomp; s/#.*$//; s/^\s*//; s/\s*$//;
+ $_;
+ } @l ];
}
#- find used mount point from a pathname, use a optional mode to allow