e-smith-backup/sme9/e-smith-backup-2.4.0.bz10781.UpdateDarCatalogFollowingBackups.patch

diff -ruN e-smith-backup-2.4.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.4.0/root/etc/e-smith/events/actions/workstation-backup-dar
--- e-smith-backup-2.4.0.old/root/etc/e-smith/events/actions/workstation-backup-dar     2019-06-20 18:00:53.687959332 +0200
+++ e-smith-backup-2.4.0/root/etc/e-smith/events/actions/workstation-backup-dar 2019-06-20 17:58:43.357548126 +0200
@@ -438,7 +438,7 @@
 
     # find available backups for the server
     my $setbackuplist = sub {if($_ =~ /([\w|-]+)-(\d+)\..*\.dar/){$backupfiles{$2} = $File::Find::dir."/$1-$2";}};
-    find { wanted => \&$setbackuplist, untaint => 1 }, $mntbkdir ;
+    find { wanted => \&$setbackuplist, untaint => 1, follow => 1 }, $mntbkdir ;
     my @deletions;
 
     my $pid = open (DAR_LIST, "-|", "/usr/bin/dar_manager", "-Q", "-B", "$catalog", "-l") or ldie ("Cannot start : $!");
1	diff -ruN e-smith-backup-2.4.0.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.4.0/root/etc/e-smith/events/actions/workstation-backup-dar
2	--- e-smith-backup-2.4.0.old/root/etc/e-smith/events/actions/workstation-backup-dar 2019-06-20 18:00:53.687959332 +0200
3	+++ e-smith-backup-2.4.0/root/etc/e-smith/events/actions/workstation-backup-dar 2019-06-20 17:58:43.357548126 +0200
4	@@ -438,7 +438,7 @@
5
6	# find available backups for the server
7	my $setbackuplist = sub {if($_ =~ /([\w\|-]+)-(\d+)\..*\.dar/){$backupfiles{$2} = $File::Find::dir."/$1-$2";}};
8	- find { wanted => \&$setbackuplist, untaint => 1 }, $mntbkdir ;
9	+ find { wanted => \&$setbackuplist, untaint => 1, follow => 1 }, $mntbkdir ;
10	my @deletions;
11
12	my $pid = open (DAR_LIST, "-\|", "/usr/bin/dar_manager", "-Q", "-B", "$catalog", "-l") or ldie ("Cannot start : $!");