* Remove newline from default machine name

[debbugs.git] / Debbugs / Config.pm

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index f4f0471ab81875e251a39286c41312e6c46784ab..15a69e7c6f4c332194c244d8ad85e40db6e01ce6 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -288,8 +288,12 @@ Default: qx(hostname --fqdn)
 
 =cut
 
-set_default(\%config,'machine_name',qx(hostname --fqdn));
-
+my $_old_path = $ENV{PATH};
+$ENV{PATH} = '/bin:/usr/bin:/usr/local/bin';
+my $temp_hostname = qx(hostname --fqdn);
+chomp $temp_hostname;
+set_default(\%config,'machine_name',$temp_hostname);
+$ENV{PATH} = $_old_path;
 
 =head2 BTS Mailing Lists