- # ico, Tue, 26 May 2009 17:58:27 +0200
- chomp ( my $hostname = `hostname --fqdn` );
+ if (can_load("Sys::Hostname::Long")) {
+ $hostname = Sys::Hostname::Long::hostname_long();
+ } else {
+ chomp ( $hostname = `hostname --fqdn` ); # TODO: This is not generic.
+ }