sanoid: fix runtime warnings

"print() on closed filehandle FH at /usr/local/bin/sanoid line 1797"
It's harmless but annoying because it causes cron to send an email.

Author: r-ricci

srcpkgs/sanoid/patches/393a4672e5695af5a5a8c82faed455e5689e0c69.patch

@@ -0,0 +1,66 @@
+From efd52f416d1ecf95c9e7db225476c6a5fd1d1808 Mon Sep 17 00:00:00 2001
+From: Christoph Klaffl <christoph@phreaker.eu>
+Date: Tue, 12 Aug 2025 14:19:47 +0200
+Subject: [PATCH] fixed file handle conflict
+
+---
+ sanoid | 15 +++++++--------
+ 1 file changed, 7 insertions(+), 8 deletions(-)
+
+diff --git a/sanoid b/sanoid
+index 4a713191..8e0d1861 100755
+--- a/sanoid
++++ b/sanoid
+@@ -1084,11 +1084,9 @@ sub init {
+ 			@datasets = getchilddatasets($config{$section}{'path'});
+ 			DATASETS: foreach my $dataset(@datasets) {
+ 				if (! @cachedatasets) {
+-					push (@updatedatasets, $dataset);
++					push (@updatedatasets, "$dataset\n");
+ 				}
+ 
+-				chomp $dataset;
+-
+ 				if ($zfsRecursive) {
+ 					# don't try to take the snapshot ourself, recursive zfs snapshot will take care of that
+ 					$config{$dataset}{'autosnap'} = 0;
+@@ -1691,7 +1689,7 @@ sub getchilddatasets {
+ 	my $getchildrencmd = "$mysudocmd $zfs list -o name -t filesystem,volume -Hr $fs |";
+ 	 if ($args{'debug'}) { print "DEBUG: getting list of child datasets on $fs using $getchildrencmd...\n"; }
+ 	open FH, $getchildrencmd;
+-	my @children = <FH>;
++	chomp( my @children = <FH> );
+ 	close FH;
+ 
+ 	# parent dataset is the first element
+@@ -1781,25 +1779,26 @@ sub addcachedsnapshots {
+ 
+ 	copy($cache, "$cache.tmp") or die "Could not copy to $cache.tmp!\n";
+ 
+-	open FH, ">> $cache.tmp" or die "Could not write to $cache.tmp!\n";
++	open my $fh, ">> $cache.tmp" or die "Could not write to $cache.tmp!\n";
+ 	while((my $snap, my $details) = each(%taken)) {
+ 		my @parts = split("@", $snap, 2);
+ 
+ 		my $suffix = $parts[1] . "\tcreation\t" . $details->{time} . "\t-";
+ 		my $dataset = $parts[0];
+ 
+-		print FH "${dataset}\@${suffix}\n";
++		print $fh "${dataset}\@${suffix}\n";
+ 
+ 		if ($details->{recursive}) {
+ 			my @datasets = getchilddatasets($dataset);
+ 
+ 			foreach my $dataset(@datasets) {
+-				print FH "${dataset}\@${suffix}\n";
++				print "${dataset}\@${suffix}\n";
++				print $fh "${dataset}\@${suffix}\n";
+ 			}
+ 		}
+ 	}
+ 
+-	close FH;
++	close $fh;
+ 
+ 	# preserve mtime of cache for expire check
+ 	my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($cache);

srcpkgs/sanoid/template

@@ -1,7 +1,7 @@
 # Template file for 'sanoid'
 pkgname=sanoid
 version=2.3.0
-revision=1
+revision=2
 depends="perl perl-Config-IniFiles perl-Capture-Tiny"
 short_desc="Policy-driven snapshot management tool for ZFS filesystems"
 maintainer="Benjamin Slade <slade@jnanam.net>"