diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-13 09:54:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-13 09:54:14 +0000 |
| commit | 5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681 (patch) | |
| tree | fde5c690f954de59c12e2732dde61feb41589e14 /urpm/cfg.pm | |
| parent | fa37569a1609f93925063b5b8a83d0e2fb16816c (diff) | |
| download | urpmi-5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681.tar urpmi-5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681.tar.gz urpmi-5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681.tar.bz2 urpmi-5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681.tar.xz urpmi-5b4d5c4d20ed6beb1efac54dc6c03de8df4c4681.zip | |
simplify using cat_()
Diffstat (limited to 'urpm/cfg.pm')
| -rw-r--r-- | urpm/cfg.pm | 8 |
1 files changed, 1 insertions, 7 deletions
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; } |