From 4a960329a947ee11b243f96df237247dc0baca63 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 20 Mar 2007 00:47:54 +0000 Subject: [PATCH] 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 --- OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm b/OpenSRF/src/perlmods/OpenSRF/Utils/Config.pm index 434ceb51de..b18bf15e40 100755 --- 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; -- 2.11.0