From 4c97c94a0a29e0b775974c780d574639372e76c2 Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <michael@stapelberg.de>
Date: Tue, 10 Jul 2012 18:55:05 +0200
Subject: [PATCH] taint mode fix for FreeBSD

---
 lib/AnyEvent/I3.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/AnyEvent/I3.pm b/lib/AnyEvent/I3.pm
index 831f350d..b08fdf63 100644
--- 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.