From 14fbb42dd630de63b07ff1f5134eb2fd4234d27d Mon Sep 17 00:00:00 2001 From: Brett Smith Date: Tue, 3 Jan 2017 12:11:30 -0500 Subject: [PATCH] find-supporter: Remove excessive whitespace. Inspired by a patch from Martin, but unfortunately it doesn't apply cleanly anymore. --- scripts/find-supporter.plx | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/find-supporter.plx b/scripts/find-supporter.plx index e45ae85..e9f4a07 100755 --- a/scripts/find-supporter.plx +++ b/scripts/find-supporter.plx @@ -35,15 +35,15 @@ foreach my $id (@supporterIds) { $found = 1; my $preferredEmail = $sp->getPreferredEmailAddress($id); my $preferredPostal = $sp->getPreferredPostalAddress($id); - print "Found: $id, ", $sp->getLedgerEntityId($id), "\n"; + print "Found: $id, ", $sp->getLedgerEntityId($id), "\n"; print " Public Ack: "; if (not defined $sp->getPublicAck($id)) { - print " unknown\n"; + print "unknown\n"; } elsif ($sp->getPublicAck($id)) { - print " yes\n"; + print "yes\n"; print " Display name for public ack: \"", $sp->getDisplayName($id), "\"\n"; } else { - print " no\n"; + print "no\n"; } my(%addr) = $sp->getEmailAddresses($id); print " Email Addresses: ";