- my $sth = FindList $otherlist, $sender;
- my ($sequence, $count);
- ($_, $_, $_, $_, $_, $sequence) = GetList $sth;
- if (defined $sequence) {
- $count = DeleteList $otherlist, $sequence;
- } # if
+ my $sth = FindList $otherlist, $sender;
+ my ($sequence, $count);
+
+ ($_, $_, $_, $_, $_, $sequence) = GetList $sth;
+
+ if ($sequence) {
+ $count = DeleteList $otherlist, $sequence;
+ } # if