X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=b7d32c44ad4f22e6a98693f7e531d373b61835fb;hb=e69b2b430d27710d1bb636f9aa7720da1d067359;hp=8b71dbff499d7946a83378b2938f6c54f6ea41c4;hpb=e90334372dd94c9deca9855be9ac7527a0da7870;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 8b71dbff..b7d32c44 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -286,7 +286,7 @@ sub send_now
 	my $call = $self->{call};
 	
 	for (@_) {
-		chomp;
+#		chomp;
         my @lines = split /\n/;
 		for (@lines) {
 			$conn->send_now("$sort$call|$_");
@@ -307,7 +307,7 @@ sub send						# this is always later and always data
 	my $call = $self->{call};
 
 	for (@_) {
-		chomp;
+#		chomp;
         my @lines = split /\n/;
 		for (@lines) {
 			$conn->send_later("D$call|$_");