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

3
sanoid
View File

@ -438,6 +438,9 @@ sub take_snapshots {
push @preferredtime,$datestamp{'year'};
$lastpreferred = timelocal(@preferredtime);
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