diff options
-rw-r--r-- | lib/Youri/Repository/Mageia_upload.pm | 4 |
1 files 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; } |