Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clarify output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-03-11 12:29:58 -08:00
parent ae7b876647
commit b344e4febf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scripts/find-supporter.plx
View file

@ -59,7 +59,7 @@ foreach my $id (@supporterIds) {
} else { } else {
print "\n Postal Addresses:\n"; print "\n Postal Addresses:\n";
foreach my $address (keys %postalAddresses) { foreach my $address (keys %postalAddresses) {
print " PREFERRED\n" if (defined $preferredPostal) and $address eq $preferredPostal; print " PREFERRED FOLLOWS:\n" if (defined $preferredPostal) and $address eq $preferredPostal;
foreach my $addrLine (split("\n", $address)) { foreach my $addrLine (split("\n", $address)) {
print " $addrLine\n"; print " $addrLine\n";
} }