From 5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 13 Dec 2012 09:54:14 +0000
Subject: simplify using cat_()

---
 urpm/cfg.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'urpm/cfg.pm')

diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index 75487c98..7b96cc54 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -64,13 +64,7 @@ sub get_arch () { _init_arch_release(); $arch }
 sub get_release () { _init_arch_release(); $release }
 
 sub get_host () {
-    my $h;
-    if (open my $f, '/proc/sys/kernel/hostname') {
-	$h = <$f>;
-	close $f;
-    } else {
-	$h = $ENV{HOSTNAME} || `/bin/hostname`;
-    }
+    my $h = cat_('/proc/sys/kernel/hostname') || $ENV{HOSTNAME} || `/bin/hostname`;
     chomp $h;
     $h;
 }
-- 
cgit v1.2.1