From: Michael Stapelberg <michael@stapelberg.de>
Date: Tue, 10 Jul 2012 16:55:05 +0000 (+0200)
Subject: taint mode fix for FreeBSD
X-Git-Tag: AnyEvent-0.11~1
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d082a57d47eb15d257c0c14de8ace10db72a5050;p=i3%2Fi3

taint mode fix for FreeBSD
---

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.