X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXChannel.pm;fp=perl%2FDXChannel.pm;h=d680251b2fa27afcd31853d0cf0ad72593bb3115;hp=0e543e9cea6f424c9dfe4cc6634b8b97ef7dc74c;hb=fda536aef281e0f6fc68a02c537d18650bd5505f;hpb=c87f5c87d207de16008d38561a7bc547a10ea62b

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 0e543e9c..d680251b 100644
--- 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|$_");