cyteen
/
sanoid
mirror of https://github.com/jimsalterjrs/sanoid
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ignore unknown interval type to prevent perl warnings

This commit is contained in:
Christoph Klaffl 2018-09-05 18:47:16 +02:00
parent 22160deb8e
commit 055f26b970
No known key found for this signature in database
GPG Key ID: FC1C525C2A47CC28
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
sanoid
View File

@ -438,6 +438,9 @@ sub take_snapshots {
push @preferredtime,$datestamp{'year'}; push @preferredtime,$datestamp{'year'};
$lastpreferred = timelocal(@preferredtime); $lastpreferred = timelocal(@preferredtime);
if ($lastpreferred > time()) { $lastpreferred -= 60*60*24*31*365.25; } # preferred time is later this year - so look at last year if ($lastpreferred > time()) { $lastpreferred -= 60*60*24*31*365.25; } # preferred time is later this year - so look at last year
} else {
# unknown type
next;
} }
# reconstruct our human-formatted most recent preferred snapshot time into an epoch time, to compare with the epoch of our most recent snapshot # reconstruct our human-formatted most recent preferred snapshot time into an epoch time, to compare with the epoch of our most recent snapshot