-
- # is this a list of channels ?
- if (!defined $conn) {
- die "tried to send to an invalid channel list" if !defined $self->{list};
- my $lself;
- foreach $lself (@$self->{list}) {
- $lself->send(@_); # here as well :-) :-)
- }
- } else {
- my $call = $self->{call};
- my $line;
-
- foreach $line (@_) {
- chomp $line;
- dbg('chan', "-> D $call $line\n");
- $conn->send_later("D$call|$line");
- }
+ my $call = $self->{call};
+ my $line;
+
+ foreach $line (@_) {
+ chomp $line;
+ dbg('chan', "-> D $call $line\n");
+ $conn->send_later("D$call|$line");