--- a/bin/ftbackup	Fri May 20 09:33:03 2011 +0200
+++ b/bin/ftbackup	Fri May 20 09:39:32 2011 +0200
@@ -16,6 +16,7 @@
 use if $ENV{DEBUG} => qw(Smart::Comments);
 use File::Temp;
 use Log::Log4perl qw(:easy);
+use Data::Dumper;
 
 $ENV{LC_ALL} = "C";
 
@@ -646,7 +647,6 @@
     my @unlink;
 
     if ($dumps[0]) {
-	TRACE "level 0:", join "|" => @{$dumps[0]};
 	@{ $dumps[0] } = sort { $a->{stamp} <=> $b->{stamp} } @{ $dumps[0] };
 
 	if ($keep =~ /^\d+$/) {
@@ -678,9 +678,9 @@
     }
 
     ### @unlink
+    TRACE("UNLINK:\n", Dumper @unlink);
 
     foreach (@unlink) {
-        TRACE "DELETE: $_->{file}";
         next if $opt_dry;
         $ftp->delete($_->{file});
     }