taint mode fix for FreeBSD

diff --git a/lib/AnyEvent/I3.pm b/lib/AnyEvent/I3.pm
index 831f350dd5814469bb9fb5374406c11d23bb8a60..b08fdf63bd34ff5814a4cc9914cd7b025e241f0c 100644 (file)
--- a/lib/AnyEvent/I3.pm
+++ b/lib/AnyEvent/I3.pm
@@ -114,6 +114,8 @@ sub new {
         if ($paths =~ /^(.*)$/) {
             $ENV{PATH} = $1;
         }
+        # Otherwise the qx() operator wont work:
+        delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
         chomp($path = qx(i3 --get-socketpath));
         # Circumventing taint mode again: the socket can be anywhere on the
         # system and that’s okay.