# HG changeset patch
# User Heiko Schlittermann (CTQ) <hs@schlittermann.de>
# Date 1312276892 -7200
# Node ID 6c90a6e8646c8ad305c4b8f10478597d10319100
# Parent  0c6e454093df904eb1a5beb4f1c4063f7cf880f1
fixed: didn't find the last full backup

diff -r 0c6e454093df -r 6c90a6e8646c bin/ftbackup
--- a/bin/ftbackup	Mon Aug 01 15:52:37 2011 +0200
+++ b/bin/ftbackup	Tue Aug 02 11:21:32 2011 +0200
@@ -208,10 +208,11 @@
             foreach (reverse sort $ftp->ls) {
 		next if /\.tmp-\d+$/;
                 next if not /^(?<date>.*)\.(?<level>\d+)$/;
-		next if not $ftp->size(0) and str2time($+{date}) < $^T;
+		next if not $ftp->size($_) and str2time($+{date}) < $^T;
                 $last[$+{level}] = str2time $+{date};
             }
         }
+	### @last
 
     # for safety we check if there is really a full dump not older than xxx days
         if ($dev->{level} > 0) {