detainted path in DA::list
This commit is contained in:
parent
0dedd18b8e
commit
ee8667368f
|
@ -78,6 +78,7 @@ sub run {
|
||||||
sub list {
|
sub list {
|
||||||
my ($self, $cmd, $path) = @_;
|
my ($self, $cmd, $path) = @_;
|
||||||
|
|
||||||
|
$path = $1 if $path =~ /(.*)/;
|
||||||
my $fh_out = $self->{fh_out};
|
my $fh_out = $self->{fh_out};
|
||||||
|
|
||||||
chdir $path or return;
|
chdir $path or return;
|
||||||
|
|
Loading…
Reference in New Issue