pullimap: Clean up PATH.

1 files changed, 4 insertions, 0 deletions

diff --git a/pullimap b/pullimap
index 65e222b..054048c 100755
--- a/pullimap
+++ b/pullimap
@@ -33,6 +33,10 @@ use Socket qw/PF_INET PF_INET6 SOCK_STREAM/;
 use lib 'lib';
 use Net::IMAP::InterIMAP qw/read_config compact_set/;
 
+# Clean up PATH
+$ENV{PATH} = join ':', qw{/usr/bin /bin};
+delete @ENV{qw/IFS CDPATH ENV BASH_ENV/};
+
 my %CONFIG;
 sub usage(;$) {
     my $rv = shift // 0;