Skip to content
Browse files

Remove some tainting problems.

  • Loading branch information...
1 parent fc000b5 commit 2107270fa6a0b235fc98e806a3cc1d4f1cff2ba7 @pjcj committed Jan 5, 2013
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/Devel/Cover/DB/Structure.pm
View
1 lib/Devel/Cover/DB/Structure.pm
@@ -377,6 +377,7 @@ sub read_all
opendir D, $dir or return;
for my $d (sort grep $_ !~ /\./, readdir D)
{
+ $d = $1 if $d =~ /(.*)/; # Die tainting.
$self->read($d);
}
closedir D or die "Can't closedir $dir: $!";

0 comments on commit 2107270

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