# Usage: &topicCipher(@topics);
sub topicCipher {
if (!@_) {
- &DEBUG("topicCipher: topic is NULL.");
+ &WARN("topicCipher: topic is NULL for $chan.");
return;
}
undef @subtopics; # lets reuse this array.
foreach (@newtopics) {
- next if ($_ eq "");
+ next if (!defined $_ or $_ eq "");
push(@subtopics, $_);
}