sanitize path before calling hostname

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