From 055f26b9709aa412b2597e53c99e00c09cf5f5df Mon Sep 17 00:00:00 2001
From: Christoph Klaffl <christoph@phreaker.eu>
Date: Wed, 5 Sep 2018 18:47:16 +0200
Subject: [PATCH] ignore unknown interval type to prevent perl warnings

---
 sanoid | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sanoid b/sanoid
index 7ae1b5b..31376ad 100755
--- a/sanoid
+++ b/sanoid
@@ -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