From 9f118da9297cb44b4ce04274129887507dd26510 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Nov 2006 13:55:28 +0000
Subject: factorize introducing proc_mounts() and cat_()

---
 urpm/cfg.pm      | 13 +++----------
 urpm/download.pm |  7 +++----
 2 files changed, 6 insertions(+), 14 deletions(-)

diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 30d9cc8b..f1dbf9a8 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -109,9 +109,8 @@ sub load_config ($;$) {
     my $priority = 0;
     my $medium;
     $err = '';
-    open my $f, $file or do { $err = N("unable to read config file [%s]", $file); return };
-    local $_;
-    while (<$f>) {
+    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
 	s/^\s+//; s/\s+$//;
@@ -192,7 +191,6 @@ sub load_config ($;$) {
 	#- obsolete
 	$_ eq 'modified' and next;
     }
-    close $f;
     return \%config;
 }
 
@@ -235,14 +233,9 @@ sub dump_config ($$) {
 our $mirrors = 'http://www.mandrivalinux.com/mirrorsfull.list';
 
 sub mirrors_cfg () {
-    if (-e "/etc/urpmi/mirror.config") {
-	local $_;
-	open my $fh, "/etc/urpmi/mirror.config" or return undef;
-	while (<$fh>) {
+    foreach (cat_("/etc/urpmi/mirror.config")) {
 	    chomp; s/#.*$//; s/^\s*//; s/\s*$//;
 	    /^url\s*=\s*(.*)/ and $mirrors = $1;
-	}
-	close $fh;
     }
     return 1;
 }
diff --git a/urpm/download.pm b/urpm/download.pm
index 1eba2504..1019120d 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -5,6 +5,7 @@ package urpm::download;
 use strict;
 use urpm::msg;
 use urpm::cfg;
+use urpm::util;
 use Cwd;
 
 (our $VERSION) = q($Revision$) =~ /(\d+)/;
@@ -33,9 +34,8 @@ sub import () {
 #- parses proxy.cfg (private)
 sub load_proxy_config () {
     return if defined $proxy_config;
-    open my $f, $PROXY_CFG or $proxy_config = {}, return;
-    local $_;
-    while (<$f>) {
+    $proxy_config = {};
+    foreach (cat_($PROXY_CFG)) {
 	chomp; s/#.*$//; s/^\s*//; s/\s*$//;
 	if (/^(?:(.*):\s*)?(ftp_proxy|http_proxy)\s*=\s*(.*)$/) {
 	    $proxy_config->{$1 || ''}{$2} = $3;
@@ -51,7 +51,6 @@ sub load_proxy_config () {
 	    next;
 	}
     }
-    close $f;
 }
 
 #- writes proxy.cfg
-- 
cgit v1.2.1