using Net::Domain instead of the shell to get the fqdn of the current host

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7080 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm b/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm
index 434ceb5..b18bf15 100755 (executable)
--- a/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm
@@ -6,6 +6,7 @@ use vars qw/@ISA $AUTOLOAD $VERSION/;
 push @ISA, qw/OpenSRF::Utils/;
 
 use OpenSRF::Utils (':common');
+use Net::Domain qw/hostfqdn/;
 
 $VERSION = do { my @r=(q$Revision$=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
@@ -325,7 +326,7 @@ sub FILE {
 
 sub load_env {
        my $self = shift;
-       my $host = `hostname -f`  || `uname -n`;
+       my $host = hostfqdn();
        chomp $host;
        $$self{env} = $self->section_pkg->new;
        $$self{env}{hostname} = $host;