diff options
Diffstat (limited to 'urpm/cfg.pm')
| -rw-r--r-- | urpm/cfg.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/urpm/cfg.pm b/urpm/cfg.pm index 5522a999..06f3c7ef 100644 --- a/urpm/cfg.pm +++ b/urpm/cfg.pm @@ -51,7 +51,9 @@ Returns 1 on success, 0 on failure. my ($arch, $release); sub _init_arch_release () { if (!$arch && !$release) { - my $l = cat_('/etc/release') or return undef; + open my $f, '/etc/release' or return undef; + my $l = <$f>; + close $f; ($release, $arch) = $l =~ /release (\d+\.\d+).*for (\w+)/; $release = 'cooker' if $l =~ /cooker/i; } @@ -107,8 +109,7 @@ sub load_config ($;$) { my $priority = 1; my $medium; $err = ''; - -r $file or do { $err = N("unable to read config file [%s]", $file); return }; - my @conf_lines = cat_($file); + my @conf_lines = cat_($file) or do { $err = N("unable to read config file [%s]", $file); return }; foreach (@conf_lines) { chomp; next if /^\s*#/; #- comments |