Remove directories in a cross-platform way

Signed-off-by: Jonathan Chang <jchang641@gmail.com>
tseemann · Aug 20, 2012 · a762a08 · a762a08
1 parent 2c03068
commit a762a08
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/script/VelvetOptimiser b/script/VelvetOptimiser
@@ -41,6 +41,7 @@ use VelvetOpt::Utils;
 use Data::Dumper;
 use Storable qw (freeze thaw);
 use Getopt::Long;
+use File::Path qw(remove_tree);
 
 
 #
@@ -379,7 +380,7 @@ else {
 foreach my $key(keys %assemblies){
 	unless($key == $bestId){ 
 		my $dir = $assembliesObjs{$key}->{ass_dir};
-		system('rm', '-r', '--preserve-root', $dir);
+		remove_tree($dir, {safe => 1});
 	} 
 }
 unless ($finaldir eq "."){