diff options
| author | Michael Scherer <misc@mageia.org> | 2011-04-15 10:15:23 +0000 |
|---|---|---|
| committer | Michael Scherer <misc@mageia.org> | 2011-04-15 10:15:23 +0000 |
| commit | 636361d732684407a0790335a4de93e9ff593e02 (patch) | |
| tree | 53e70883097ec648d7c17a768b9184f952728c4d | |
| parent | f8873e96359a1eacf292f1c285cee2705b2b8348 (diff) | |
| download | iurt-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.pm | 3 |
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, $$) . '_'; |