Clear the environment
authorjoey <>
Thu, 18 Nov 2004 13:02:08 +0000 (13:02 +0000)
committerjoey <>
Thu, 18 Nov 2004 13:02:08 +0000 (13:02 +0000)
Util.pm

diff --git a/Util.pm b/Util.pm
index b4b1e61..e30faa6 100644 (file)
--- a/Util.pm
+++ b/Util.pm
@@ -189,6 +189,7 @@ sub FetchKey {
   $fingerprint =~ s/\s//g;
   $fingerprint = "0x".$fingerprint;
 
+  local $ENV{PATH} = '';
   $/ = undef; # just suck it up ....
   open(FP, "$config{gpg} --no-options --no-default-keyring $keyringparam --list-sigs --fingerprint $fingerprint|");
   $out = <FP>;