- foreach my $otherlist ("white", "black") {
- my $sth = FindList $otherlist, $sender;
- my ($sequence, $count);
- ($_, $_, $_, $_, $_, $sequence) = GetList $sth;
- if (defined $sequence) {
- $count = DeleteList $otherlist, $sequence;
- } # if
- } # foreach
+ for my $otherlist ('white', 'black') {
+ my $sth = FindList($otherlist, $sender);
+ my ($sequence, $count);
+
+ ($_, $_, $_, $_, $_, $sequence) = GetList($sth);
+
+ if ($sequence) {
+ $count = DeleteList($otherlist, $sequence);
+ } # if
+ } # for