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

Properly use these strings.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-31 00:00:11 -08:00
parent 8cc77b8dec
commit 8b233299c8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/add-supporter.plx
View file

@ -57,9 +57,9 @@ my $wantList = <STDIN>;
chomp $wantList; chomp $wantList;
print "postal Address (. to end):\n"; print "postal Address (. to end):\n";
my $postal; my $postal = "";
while (my $line = <STDIN>) { while (my $line = <STDIN>) {
last if /^\s*\.\s*$/; last if $line =~ /^\s*\.\s*$/;
$postal .= $line; $postal .= $line;
} }