added BackupPC::View only_first option
[BackupPC.git] / lib / BackupPC / View.pm
index 1c21ba8..3f56841 100644 (file)
@@ -105,6 +105,9 @@ sub dirCache
        #
        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);