projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
fix call/call-ssid locking issue
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index 0e543e9cea6f424c9dfe4cc6634b8b97ef7dc74c..d680251b2fa27afcd31853d0cf0ad72593bb3115 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-427,7
+427,7
@@
sub send # this is always later and always data
my $call = $self->{call};
foreach my $l (@_) {
- for (ref
$l
? @$l : $l) {
+ for (ref
($l) eq 'ARRAY'
? @$l : $l) {
my @lines = split /\n/;
for (@lines) {
$conn->send_later("D$call|$_");