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

Allow for undef.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-01-22 17:09:41 -08:00
parent ef21af7afd
commit 1039f6f6d2
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scripts/add-supporter.plx
View file

@ -27,9 +27,14 @@ print "Display Name: ";
my $displayName = <STDIN>; my $displayName = <STDIN>;
chomp $displayName; chomp $displayName;
print "Public Ack (0 or 1): "; my $publicAck = 7;
my $publicAck = <STDIN>; while ($publicAck != 0 and $publicAck != 1 and $publicAck !~ /^\s*$/) {
chomp $publicAck; print "Public Ack (0 or 1, or return to leave undef): ";
$publicAck = <STDIN>;
chomp $publicAck;
}
$publicAck = undef if (defined $publicAck and $publicAck =~ /^\s*$/);
print "Email Address: "; print "Email Address: ";
my $email = <STDIN>; my $email = <STDIN>;