From ee8667368f6f101f931d4af2424a5b4f99db4427 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Mon, 20 Nov 2006 09:00:48 +0000
Subject: [PATCH] detainted path in DA::list

---
 lib/Simba/DA.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Simba/DA.pm b/lib/Simba/DA.pm
index 2d1efda..396e20b 100644
--- a/lib/Simba/DA.pm
+++ b/lib/Simba/DA.pm
@@ -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;