From: Graham Knop <haarg@haarg.org>
Date: Tue, 1 Oct 2013 13:19:12 +0000 (-0400)
Subject: don't blindly untaint @INC
X-Git-Tag: v2.000_000~48
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8b2311a96dc5d2ebc189193515b1fcc4893274c;p=p5sagit%2Flocal-lib.git

don't blindly untaint @INC
---

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index cc91aea..1153400 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -66,11 +66,6 @@ DEATH
 
   $arg_store{path} = $class->resolve_path($arg_store{path});
   $class->setup_local_lib_for($arg_store{path}, $deactivating);
-
-  for (@INC) { # Untaint @INC
-    next if ref; # Skip entry if it is an ARRAY, CODE, blessed, etc.
-    m/(.*)/ and $_ = $1;
-  }
 }
 
 sub pipeline;