1 files changed, 2 insertions, 1 deletions
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, $$) . '_';