From df8899510f679ecca37412583a91e1778b44720b Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Fri, 22 Apr 2022 13:38:27 +0200
Subject: [PATCH] - removed debugging code
---
perl/exit_strategy.pl | 7 -------
1 file changed, 7 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 9c3fc8e..ebd984e 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -270,12 +270,6 @@ sub write_addsql ($dbh, $plans, $refhash) {
my $reason = $purge->{'reason'};
my $date = $purge->{'date'};
my $authorized_by = $purge->{'authorized_by'};
- if (! defined $reason or length($reason) < 2) {
- use Data::Printer;
- p( $purge );
- p($iefile);
- die;
- }
$plans->{deleted}->execute($ieid, $ieversion, $state, $reason, $date, $authorized_by) or die "sql problem detected", $dbh->errstr;
}
}
@@ -482,7 +476,6 @@ sub check_if_db_conform ($string, $filename) {
############################################
my $is_deleted = has_purged_entries($xp, $amdsec);
if ($is_deleted) {
- print "FOUND DELETED\n";
my @purged_states = @{ get_purged_states($xp, $amdsec) };
foreach my $idx (0 .. $#purged_states) {
$ret->{'purged'}->[$idx]->{state} = $purged_states[$idx];
--
GitLab