From 636361d732684407a0790335a4de93e9ff593e02 Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Fri, 15 Apr 2011 10:15:23 +0000
Subject: use default Sys::Hostname module from perl

---
 lib/Iurt/Config.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Iurt/Config.pm')

diff --git a/lib/Iurt/Config.pm b/lib/Iurt/Config.pm
index 8450b49..d96bc9a 100644
--- a/lib/Iurt/Config.pm
+++ b/lib/Iurt/Config.pm
@@ -6,6 +6,7 @@ use Data::Dumper;
 use MDK::Common;
 use Iurt::Util qw(plog);
 use strict;
+use Sys::Hostname;
 
 our @EXPORT = qw(
     config_usage
@@ -106,7 +107,7 @@ sub get_date {
 
 sub get_prefix {
     my ($luser) = @_;
-    my $hostname = `hostname`;
+    my $hostname = hostname();
     my ($fulldate) = get_date();
     my ($host) = $hostname =~ /([^.]*)/;
     join('.', $fulldate, $luser, $host, $$) . '_';
-- 
cgit v1.2.1