# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1305877172 -7200
# Node ID 60dda89232c7c564f3ef09f2f4174c2cb094027a
# Parent  41f2696330bf54669af36e39f65fcf73f3a491db
fixed tracing

diff -r 41f2696330bf -r 60dda89232c7 bin/ftbackup
--- 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});
     }