Changeset 73753d8151fa641351c9c813595feeb75aaf3520
- Timestamp:
- 12/13/07 16:30:39
(5 years ago)
- Author:
- Theo Schlossnagle <jesus@omniti.com>
- git-committer:
- Theo Schlossnagle <jesus@omniti.com> 1197563439 +0000
- git-parent:
[eb7a4814aa31b8d2691ee701630aa0fe9a5abe3a]
- git-author:
- Theo Schlossnagle <jesus@omniti.com> 1197563439 +0000
- Message:
always explicitly retain the last full, closes #14
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| rbe74e2e |
r73753d8 |
|
| 562 | 562 | @backup_points = sort { $b <=> $a } @backup_points; |
|---|
| 563 | 563 | |
|---|
| 564 | | # We _cannot_ throw away _all_ out backups, so save the most recent no matter what |
|---|
| | 564 | # We _cannot_ throw away _all_ out backups, |
|---|
| | 565 | # so save the most recent incremental and full no matter what |
|---|
| 565 | 566 | $must_save{$backup_points[0]} = 1; |
|---|
| | 567 | my @fulls = grep { exists($info->{full}->{$_}) } @backup_points; |
|---|
| | 568 | $must_save{$fulls[0]} = 1; |
|---|
| 566 | 569 | |
|---|
| 567 | 570 | # Walk the list for backups within our retention period. |
|---|
