From c6daa327cbe33968849c24c0385e2b45770c72fb Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Thu, 6 Jan 2011 03:25:26 +0000
Subject: use hostname function from perl core module Sys::Hostname ( and so
 avoid 1 useless fork )

---
 lib/Youri/Repository/Mageia_upload.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Youri/Repository/Mageia_upload.pm b/lib/Youri/Repository/Mageia_upload.pm
index 4106afc..dc82593 100644
--- a/lib/Youri/Repository/Mageia_upload.pm
+++ b/lib/Youri/Repository/Mageia_upload.pm
@@ -19,6 +19,7 @@ use File::Find 'find';
 use base qw/Youri::Repository/;
 use MDV::Distribconf::Build;
 use SVN::Client;
+use Sys::Hostname;
 
 use constant {
     PACKAGE_CLASS   => 'Youri::Package::URPM',
@@ -70,8 +71,7 @@ sub get_group_id {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
     $year+=1900;
     $mon++;
-    my $hostname = `hostname`;
-    my ($host) = $hostname =~ /([^.]*)/;
+    my ($host) = hostname =~ /([^.]*)/;
     sprintf "$year%02d%02d%02d%02d%02d.$user.$host.${$}_", $mon, $mday, $hour, $min, $sec;
 }
 
-- 
cgit v1.2.1