From 07aea9ba7416ec6b81424f96ba055a24101218e0 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 3 Nov 2024 15:49:30 -0800
Subject: [PATCH] Remove spurious debugging print to STDERR

---
 Supporters/lib/Supporters.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm
index 94c7a25..5e0ef5c 100644
--- a/Supporters/lib/Supporters.pm
+++ b/Supporters/lib/Supporters.pm
@@ -1998,7 +1998,6 @@ sub _readLedgerData($) {
     warn "Invalid line in line in ledgerFH output:\n    $line"
       unless $line =~ /^\s*([^\d]+)\s+([\d\-]+)\s+(\S*)\s+\$?\s*(\-?\s*[\d,\.]+)\s*$/;
     my($type, $date, $entityId, $amount) = ($1, $2, $3, $4);
-    print STDERR "$type, $date, $entityId, $amount\n";
     next unless defined $entityId and $entityId !~ /^\s*$/;
     if (defined $self->{programTypeSearch}) {
       if ($type =~ /$self->{programTypeSearch}{annual}/) {