Changeset 3679

Show
Ignore:
Timestamp:
10/06/10 18:57:38 (2 years ago)
Author:
ligne
Message:

Sys::Hostname has been in core since forever.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/node/lib/Munin/Node/OS.pm

    r3633 r3679  
    1313 
    1414use POSIX (); 
     15use Sys::Hostname; 
    1516 
    1617sub get_uid { 
    …… 
    3839 
    3940 
    40 sub get_fq_hostname { 
    41     my ($class) = @_; 
    42  
    43     my $hostname = eval { 
    44         require Sys::Hostname; 
    45         return (gethostbyname(Sys::Hostname::hostname()))[0]; 
    46     }; 
    47     return $hostname if $hostname; 
    48  
    49     $hostname = `hostname`; 
    50     chomp($hostname); 
    51     $hostname =~ s/\s//g; 
    52     return $hostname; 
    53 } 
    54  
     41sub get_fq_hostname { return (gethostbyname Sys::Hostname::hostname)[0]; } 
    5542 
    5643