aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2011-04-15 10:15:23 +0000
committerMichael Scherer <misc@mageia.org>2011-04-15 10:15:23 +0000
commit636361d732684407a0790335a4de93e9ff593e02 (patch)
tree53e70883097ec648d7c17a768b9184f952728c4d
parentf8873e96359a1eacf292f1c285cee2705b2b8348 (diff)
downloadiurt-636361d732684407a0790335a4de93e9ff593e02.tar
iurt-636361d732684407a0790335a4de93e9ff593e02.tar.gz
iurt-636361d732684407a0790335a4de93e9ff593e02.tar.bz2
iurt-636361d732684407a0790335a4de93e9ff593e02.tar.xz
iurt-636361d732684407a0790335a4de93e9ff593e02.zip
use default Sys::Hostname module from perl
-rw-r--r--lib/Iurt/Config.pm3
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, $$) . '_';