changeset 106 | 244a1c0dc6a5 |
parent 99 | 2d2d94f5ba3f |
child 107 | d6c95b8e1bda |
--- a/bin/ftbackup Wed May 04 12:01:00 2011 +0200 +++ b/bin/ftbackup Fri May 20 09:31:21 2011 +0200 @@ -646,6 +646,7 @@ my @unlink; if ($dumps[0]) { + TRACE "level 0:", join "|" => @{$dumps[0]}; @{ $dumps[0] } = sort { $a->{stamp} <=> $b->{stamp} } @{ $dumps[0] }; if ($keep =~ /^\d+$/) { @@ -679,7 +680,7 @@ ### @unlink foreach (@unlink) { - say "DELETE: $_->{file}"; + TRACE "DELETE: $_->{file}"; next if $opt_dry; $ftp->delete($_->{file}); }