From 9793c05d2e2ae6a55a9ab089079b0a573cdb185c Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Fri, 20 Sep 2024 14:21:07 +0200
Subject: [PATCH] - add missed comment
---
perl/exit_strategy.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index bde3b3e..af776bc 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -322,7 +322,7 @@ SQL_PURGED_PLAN
$dcvalue =~ tr/'/"/;
eval {$plans->{dc}->execute($ieid, $ieversion, $dckey, $dcvalue)} or die "sql problem detected with $ieid ($ieversion, $dckey, $dcvalue), ", $dbh->errstr;
}
- foreach my $delstate (qw(purged deleted)) {
+ foreach my $delstate (qw(purged deleted)) { # we ignore "recovered" state here, because not an extra table
if ($refhash->{$delstate}) {
my $delete = $refhash->{$delstate};
# TODO: call plan plans->{deleted}
--
GitLab