Fix another tainted variable so that tests now pass under prove -lT

Perl-Toolchain-Gang · Dec 2, 2012 · fac8f8a · fac8f8a
1 parent ecaf12f
commit fac8f8a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/File/chdir.pm b/lib/File/chdir.pm
@@ -39,7 +39,8 @@ sub _catpath {
 }
 
 sub _chdir {
-    my($new_dir) = @_;
+    # Untaint target directory
+    my ($new_dir) = $_[0] =~ /(.*)/s;
 
     local $Carp::CarpLevel = $Carp::CarpLevel + 1;
     if ( ! CORE::chdir($new_dir) ) {