Skip to content
Browse files

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

  • Loading branch information...
1 parent ecaf12f commit fac8f8af17e5f8f19cbbc48d6193b22774d78035 @jberger jberger committed Dec 2, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 lib/File/chdir.pm
View
3 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) ) {

0 comments on commit fac8f8a

Please sign in to comment.
Something went wrong with that request. Please try again.