detainted path in DA::list

This commit is contained in:
hjp 2006-11-20 09:00:48 +00:00
parent 0dedd18b8e
commit ee8667368f
1 changed files with 1 additions and 0 deletions

View File

@ -78,6 +78,7 @@ sub run {
sub list {
my ($self, $cmd, $path) = @_;
$path = $1 if $path =~ /(.*)/;
my $fh_out = $self->{fh_out};
chdir $path or return;