added BackupPC::View only_first option

[BackupPC.git] / lib / BackupPC / View.pm

diff --git a/lib/BackupPC/View.pm b/lib/BackupPC/View.pm
index 1c21ba8..3f56841 100644 (file)
--- a/lib/BackupPC/View.pm
+++ b/lib/BackupPC/View.pm
@@ -105,6 +105,9 @@ sub dirCache
        #
        next if ( $m->{backups}[$i]{level} >= $level );
 
        #
        next if ( $m->{backups}[$i]{level} >= $level );
 

+       last if exists $m->{dirOpts}->{only_first} && $i != $m->{idx};
+       # used by bin/BackupPC_updatedb to extract just first increment
+

        $level = $m->{backups}[$i]{level};
        $backupNum = $m->{backups}[$i]{num};
        push(@{$m->{mergeNums}}, $backupNum);
        $level = $m->{backups}[$i]{level};
        $backupNum = $m->{backups}[$i]{num};
        push(@{$m->{mergeNums}}, $backupNum);